Tout petit probleme avec les string

Bonjour ;)

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

Code:

---

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

La dernière opération devrait marcher....et elle seule !

En effet, à la 2ème opération, tu écrases Memo2.text avec le contenu de memo1, au lieu de repartir de Mémo2...
Et pareil avec la 3ème.

surement il y a une méthode mieux que je vous donne:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

var s,m:string; i:integer; begin s:=memo2.text; m:=''; for i:=1 to length(s) do begin case s[i] of 'é':m:=m+'é'; 'è':m:=m+'è'; 'à':m:=m+'à'; else m:=m+s[i]; end; end; memo2.text:=m; end;

---

Merci beaucoup, c'est parfait ;)

Et pour être complet, ci-joint une fonction qui convertit tous les caractères spéciaux : Pièce jointe 1606
Bloon