Großer Hex-String in Dezimal String wandeln, rundungsfehler

[marabu]

Hallo ruedi,

getestet hatte ich nicht - sorry.

Delphi-Quellcode:

var
  hex: string;
  i: Int64;
begin
  hex := 'E0169402086427A9';
  i := StrToInt64('$'+ hex);
  ShowMessage(IfThen(IntToHex(i, 16) = hex, 'cheerio', 'rats'));
end;

Freundliche Grüße