Discussion :

[remixtech]

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 :

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

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.....

[rotule]

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

[rotule]

Ce qui te donne par exemple :

Code :

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

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;

[remixtech]

Merci bcp ...