Float Zahlen in Hex Zahlen umwandeln

[danielA]

Probier mal folgendes:

Code:

...

type
  TConvert32Bit = (Conv_AsFloat, Conv_AsInteger, Conv_AsByte, Conv_AsChar, Conv_AsSingle);

  TConvertRecord = record
  case TConvert32Bit of
       Conv_AsFloat   : (FloatValue : Double);
       Conv_AsInteger : (IntValue : Integer);
       Conv_AsByte    : (ByteHH, ByteHL, ByteLH, ByteLL : Byte);
       Conv_AsChar    : (CharHH, CharHL, CharLH, CharLL : Char);
       Conv_AsSingle  : (HighSingle, LowSingle : Single);
  end;


  TForm1 = class(TForm)


...


implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var ConvertVar : TConvertRecord;
    FloatValue : Real;
begin
  FloatValue := 0.0;
  ConvertVar.FloatValue := FloatValue;
  ShowMessage(IntToHex(ConvertVar.IntValue, 8));

  FloatValue := 1234.1234;
  ConvertVar.FloatValue := FloatValue;
  ShowMessage(IntToHex(ConvertVar.IntValue, 8));
end;