IntToHex funzt nicht bei Unsigned 64 Bit Integer

[Klaus01]

Hallo,

diese Funktion:

Delphi-Quellcode:

function UInt64ToHex(Value: Int64): string;
type
  TByteArray = array[0..7] of Byte;
var
  I : Byte;
  B1 : ^TByteArray;
begin
  Result := '';
  //Place the pointer of bytes to the value (-:
  B1 := Addr(Value);

  for I := High(B1^) downto Low(B1^) do
    Result := Result + IntToHex(B1^[I], 2);
  while ((Result[1] = '0') and (Length(Result) > 1)) do
    Delete(Result, 1, 1);
end;

habe ich hier gefunden.

Grüße
Klaus