Discussion :

[awax]

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

[qi130]

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

[cadetill]

Ici tu as un exemple

[awax]

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

[cadetill]

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

Code :

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

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;

[diam's]

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

Code :

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

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