Valeur hexa...

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;

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

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

---

Croc (click me)