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 :
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;
Il ne me remplace que le premier caractère accentué trouvé par un caractère bizarre...

Pouvez-vous m'aider à corriger ce problème ?

Merci,
ZiP