Discussion :

[[ZiP]]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

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

[tourlourou]

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;

[[ZiP]]

Bonjour,

Le passage par un intermédiaire est fonctionnel.

Merci,
ZiP