Ascii DOs -> Ascii Windows

Bonjour j'ai un doute , pour demain je dois faire un programme qui fait des conversions Binaire -> hexa et tout

C'est fait mais j'ai un probleme

Code:

---

1 2 3 4 5 6 7

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); var i:integer; begin i:= ord(key); //on récupere la valeur Ascii de la touche présse label1.Caption:= 'En Ascii -> ' + inttostr(i) + ' En Hexadecimal -> ' + decihexa(i); // On appelle la fonction crée ci dessous soit DeciHexa edit1.Text := key; end;

---

Le probleme c'est que quand je fais Alt + 169 soit ® il m'affiche en Ascci
174 ????
Tout différe ?? c'est byzard ....

Pouvais m'aider ...
merci d'avance...

Je sais pas comment ca se fait.....

La partie étendue de la table ASCII (les caractères 128 à 255) n'est pas vraiment normalisée (chaque constructeur a son implémentation, qui change encore selon la langue...).
La table Windows est différente de la table "standard" IBM PC-8.
Le code ASCII ® (169) sera stocké par Windows sous la valeur 174.

C'est peut-être plus simple à comprendre avec le caractère "é" :
é sous DOS (ou IBM PC) = 130
é sous Windows = 233

En faisant ALT + xxx, tu rentres un code ASCII "DOS".
Pour rentrer le code ASCII "Windows" tu peux faire ALT + 0xxx.
ALT + 130 = é
ALT + 0233 = é

Pour convertir un code "Windows" en code "DOS" tu peux utiliser la fonction de l'API Windows CharToOem.

Voir aussi
http://www.jimprice.com/jim-asc.htm

Ce qui te donne par exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); var i: Integer; tmp: array[0..1] of Char; begin tmp[0] := Char(Ord(key)); tmp[1] := #0; CharToOem(tmp, tmp); i := Integer(tmp[0]); label1.Caption:= 'En Ascii -> ' + inttostr(i) + ' En Hexadecimal -> ' + IntToHex(i,2); edit1.Text := key; key := #0; end;

---

Merci bcp ...