convertion hexadecimal -->binaire

salut
pour faire la convertion d'un nombre hexa (par exemple 'AF') en un nombre binaire, j'ai utiliser la fonction hextobin:
edit1.Text:=inttostr(HexToBin('AF','16',0));
mais ça n'a pas marcher
ou est la problème
merci

Citation:

---

Envoyé par Aide Delphi 6

HexToBin(Text, Buffer: PChar; BufSize: Integer): Integer
Text est la représentation sous forme de chaîne d'une valeur hexadécimale.

Buffer renvoie la valeur résultante en binaire.

BufSize donne la taille de Buffer. Text doit pointer sur au moins 2*BufSize caractères hexadécimaux car deux caractères hexadécimaux représentent un octet.



Remarque*: Le nombre hexadécimal doit utiliser des caractères en minuscules*; HexToBin ne reconnaît pas les majuscules.

---

Donc ton appel n'est pas conforme au format attendu...

Ici tu as un exemple

désolé je suis débutton en programmation
et j'ai pas compris cette exemple
je veux juste faire la convertion de 'aa' en binaire
merci

Ici une fonction qui fait la transformation (j'ai échoué a faire fonctionner HexToBin :oops: )

Code:

---

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

function HexToBinStr(Hexa: string) : string; const BCD: array [0..15] of string = ('0000', '0001', '0010', '0011', '0100', '0101', '0110', '0111', '1000', '1001', '1010', '1011', '1100', '1101', '1110', '1111'); var i:integer; begin for i := Length(Hexa) downto 1 do Result := BCD[StrToInt('$' + Hexa[i])] + Result; end;

---

en utilisant l'exemple fourni, ça devrait donné ça (pas testé et fait un peu à l'arrache:oops: ) :

Code:

---

1 2 3 4

E := edit1.text; buf:='aa'; HexToBin(buf, @E, SizeOf(Buf) - 1);

---