Bonjour,
J'ai un TMemo dans lequel j'ai un texte avec des caractères accentués. Je souhaite remplacer ces caractères par d'autres.
Voici mon code :
Il ne me remplace que le premier caractère accentué trouvé par un caractère bizarre...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 procedure TForm1.Button1Click(Sender: TObject); var Avant, Apres : String; i : Integer; begin Avant := 'àéèê'; Apres := 'aeee'; for i:=1 to Length(Avant) do begin Memo1.Lines.Strings[0] := StringReplace(Memo1.Lines.Strings[0], Avant[i], Apres[i], [rfReplaceAll]); end; end;
Pouvez-vous m'aider à corriger ce problème ?
Merci,
ZiP
Partager