Dezimal zu floating hex 8 byte ?

[Bummi]

oder nochmals gekapselt:

Delphi-Quellcode:

Function GetAsHexString(Var X;Size:Integer):AnsiString;
begin
  SetLength(Result,Size*2);
  BinToHex( x,PAnsiChar(Result),Size);
end;

procedure TForm2.Button2Click(Sender: TObject);
var
 x:Integer;
 y:Double;
begin
  x := 255+255*256;
  Showmessage(GetAsHexString(x,SizeOf(x)));
  y := 1776;
  Showmessage(GetAsHexString(y,SizeOf(y)));
end;