Bonjour

J'essaye de faire une fonction qui remplace les caracteres é à è en caracteres specialsHTML. Or, ca ne marche pas :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
procedure TForm1.Button1Click(Sender: TObject);
begin
      Memo2.Text := StringReplace(Memo1.Text , 'é', 'é', [rfReplaceAll, rfIgnoreCase]);
      Memo2.Text := StringReplace(Memo1.Text , 'è', 'è', [rfReplaceAll, rfIgnoreCase]);
      Memo2.Text := StringReplace(Memo1.Text , 'à', 'à', [rfReplaceAll, rfIgnoreCase]);
 
end;
Où me suis-je planté?
Merci