Discussion :

[Charly910]

Bonjour,

j'écris cette chaine dans un Memo :

Code :

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

F_Princ.caption := 'l''éléphant qui boit l''eau, est l''un des gros animaux d''Afrique' ;

je voudrais évidement obtenir :

Code :

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

F_Princ.caption := 'l''éléphant qui boit l''eau, est l''un des gros animaux d''Afrique' ;

j'ai essayé de convertir avec :

Code :

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

1
2
3
4
5
6
7
8
{ ============================================================================== }
Function ConvertToAnsi(Const s : String ) : String ;
Begin
  SetLength(Result, Length(s)) ;
  If (Length(Result) > 0) Then
    OemToAnsi(PChar(s), PChar(Result)) ;   
End ;
{ ============================================================================== }

mais rien ne fonctionne : ni OemToChar, ni AnsiToOem , ni CharToOem, ni OemToAnsi.

Qu'est que je dois faire ?

Merci
Charly

[Paul TOTH]

normal, c'est de l'UTF8 je ne suis pas certain que D7 possède déjà la fonction UTF8Decode

[Charly910]

Oui merci Paul,

avec la fonction UTF8ToAnsi ça marche !!

A+
Charly

[popo]

normal, c'est de l'UTF8 je ne suis pas certain que D7 possède déjà la fonction UTF8Decode

Delphi 7 possède déjà les routines UTF8Encode et UTF8Decode.