Dezimal zu floating hex 8 byte ?

[BBoy]

etwas zu früh gefreut. ich verwende das letzte von gammatester aber in einer prozedur. Beim compilieren kommt da immer "operator oder semikolon fehlt". Leider verstehe ich den code nicht um ihn anzupassen.
Wie müsste den Code sein damit er in einer prozedur funktioniert und das Ergebnis als hex in einem edit feld steht?
Danke!

[himitsu]

Delphi-Quellcode:

var
  D: Double;
  S: string;

@D ist der Zeiger auf die binären Daten der Variable.
Dazu liest du dir einfach mal BinToHex durch und schon hat man eine ordentlich Lösung.

Delphi-Quellcode:

D := 123.465;

SetLength(S, SizeOf(D) * 2);  // zwei Zeichen pro Byte
BinToHex(D, PChar(S), SizeOf(D));  // oder BinToHex(@X, PChar(S), SizeOf(X));

Edit1.Text := S;

[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;

[BBoy]

@himitsu super, vielen dank.
Jetzt funktioniert alles