Discussion :

[RamDevTeam]

Bjr,

Je cherche un bout de code pour convertir une chaine de caractère ASCII (DOS) en ISO/IEC 8859-1

Est-ce que la fct existe sous delphi ou est-ce que qq'n à déja fait ce dev ?

Merci.

[RamDevTeam]

Pour l'instant, j'utilise le code ci-dessous. si qq à une meilleure idée, je suis preneur.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
    case DosCar of
          Chr($85) : result:= 'à';
          Chr($83) : result:= 'â';
          Chr($87) : result:= 'ç';
          Chr($8A) : result:= 'è';
          Chr($82) : result:= 'é';
          Chr($88) : result:= 'ê';
          Chr($8B) : result:= 'ï';
          chr($8C) : result:= 'î';
          Chr($93) : result:= 'ô';
          Chr($97) : result:= 'ù';
          Chr($96) : result:= 'û';
   end;