如何在 Delphi 中将浮点数转换为十六进制（以及反之）

Question

可能的重复：
在 Borland Delphi 中将浮点或负整数转换为十六进制

是否有一个函数可以用来将浮点值转换为十六进制值并返回？

Answer 1

procedure ShowBinaryRepresentation;
var
  S, S2: Single;
  I: Integer;
  D, D2: Double;
  I64: Int64;
begin
  S := -1.841;
  I := PInteger(@S)^;
  OutputWriteLine(Format('Single in binary represenation: %.8X', [I]));

  S2 := PSingle(@I)^;
  OutputWriteLine(Format('Converted back to single: %f', [S2]));

  D := -1.841E50;
  I64 := PInt64(@D)^;
  OutputWriteLine(Format('Double in binary represenation: %.16X', [I64]));

  D2 := PDouble(@I64)^;
  OutputWriteLine(Format('Converted back to double: %f', [D2]));
end;

Single in binary represenation: BFEBA5E3
Converted back to single: -1,84
Double in binary represenation: CA5F7DD860D57D4D
Converted back to double: -1,841E50

Answer 2

不是浮点数。 inttohex 可以将整数（也可能是 int64）更改为十六进制字符串。

可能您需要撬开 IEEE 格式双精度类型中的位并将它们更改为十六进制，然后将其与中间的点连接起来。

如果这不是您正在寻找的答案，请具体说明“十六进制值”的含义。

如果您只想将其转换为例如字节数组，请定义一个具有合适大小的字节类型数组（4 表示单精度，8 表示双精度，10 扩展）和类型转换。