Problème de remplacement de caractère dans un TMemo

Bonjour,

Je voudrais remplacer trois caractères qui se suivent dans un TMemo :

Code:

---

1 2 3 4 5 6

if Copy(Memo1.Lines.Strings[i], 11, 3) <> 'PAY' then begin Memo1.Lines.Strings[i][11] := 'P'; Memo1.Lines.Strings[i][12] := 'A'; Memo1.Lines.Strings[i][13] := 'Y'; end;

---

Mais j'ai l'erreur suivante :

Citation:

---

umain.pas(100,54) Error: Argument can't be assigned to
umain.pas(101,54) Error: Argument can't be assigned to
umain.pas(102,54) Error: Argument can't be assigned to
umain.pas(181) Fatal: There were 3 errors compiling module, stopping

---

Comment puis-je faire ?

Merci,
ZiP

Si tu ne fais rien d'autre dans cette condition, autant modifier systématiquement cette portion en 'PAY', non ?

Mais ceci ne règle pas ton problème...

Est-ce que ça passe en utilisant Memo1.Lines[i] ?

Sinon, passer par un intermédiaire : S:=Memo1.Lines[i]; S[11]:='P'; Memo1.Lines[i]:=S;

Bonjour,

Le passage par un intermédiaire est fonctionnel.

Merci,
ZiP