Valeur hexa...Résolu

Question

bonjour,
Je n'arrive pas à convertir une valeur hexa en dec qui depasse 8 caractères ! est-il possible ? la calculatrice de windows le peut !? avec (Qmot) 

par cette procédure je cherche à avoir le même résultat de conversion de l'exa vers dec que la calc de windows.
Merci d'avance !
procedure TForm1.Button1Click(Sender: TObject);
var hex: string;
  valeur: Dword;
begin
  try
    hex := '$' + Edit1.text;
    valeur := StrToInt(hex);
    Edit2.Text := IntToStr(valeur);
  except
    Edit2.text := 'erreur'
  end;
end;

japee · Accepted Answer

Salut,

C'est DWORD qui te limite. Utilise Int64, comme ceci :

var hex: string;
  valeur: Int64; // <- ;)
begin
  try
    hex := '$' + Edit1.text;
    valeur := StrToInt64(hex); // <- !
    Edit2.Text := IntToStr(valeur);
  except
    Edit2.text := 'erreur'
  end;
end;

Bonne prog'

cs_viva · Answer

Salut  japee 
c'est ce que je cherchais MERCI !
@+

f0xi · Answer

tu peu aussi regarder ici, la fonction evite de mettre un $ avant :

http://www.codyx.org/snippet_conversion-hexadecimal-decimal_132_l_delphi_13.aspx

utilisation :

valeur := HexToDec('FF0054883222');

valeur := HexToDec('$FF0054883222');

valeur := HexToDec('xFF0054883222');

valeur := HexToDec('hFF0054883222');

--> 280 376 883 294 754

<hr size="2" width="100%" />Croc (click me)

Valeur hexa...

3 réponses

Votre réponse

Discussions similaires