J'ai codé ça rapidement en FMX sous Delphi Berlin et ça fonctionne.
Alors, pourquoi ne pas en faire profiter la communauté ?
Résultat
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 function NoAccent(const Source: string): string; var K: TArray<Byte>; begin K := TEncoding.Convert(TEncoding.Unicode, TEncoding.ASCII, TEncoding.Unicode.GetBytes(Source)); Result := StringOf(K); end; procedure TForm24.Button1Click(Sender: TObject); begin ShowMessage(NoAccent('Éùéèàçùâêûî')); end;
---------------------------
Project5
---------------------------
Eueeacuaeui
---------------------------
OK
---------------------------
Partager