Conversion de table de caractère

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.

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

Code:

---

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;

---