Discussion :

[bixi]

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

[qi130]

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.

[edam]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

[bixi]

Merci beaucoup, c'est parfait

[Bloon]

Et pour être complet, ci-joint une fonction qui convertit tous les caractères spéciaux : filtreHTML.pas
Bloon