Bonjour
J'essaye de faire une fonction qui remplace les caracteres é à è en caracteres specialsHTML. Or, ca ne marche pas :
Où me suis-je planté?
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;
Merci
Partager