delphi 将双精度浮点数转化成十六进制四字节

在Delphi中，将双精度浮点数（Double）转换为十六进制字符串通常需要两个步骤：首先，你需要将double值存储到内存中，然后读取并转换为十六进制。因为Double类型占8个字节（64位），所以你需要处理这8个字节。

以下是使用`TMemoryStream`来操作内存，并使用`Format()`函数将其转换为十六进制字符串的一个示例：

uses
  System.SysUtils;

function DoubleToHex(const d: Double): string;
var
  stream: TMemoryStream;
begin
  stream := TMemoryStream.Create;
  try
    // 将Double值写入流
    stream.WriteBuffer(@d, SizeOf(Double));
    
    // 获取内存地址范围
    const AddressSize = sizeof(TMemoryAddress);
    var address: TMemoryAddress;
    address.P := stream.Memory^[0];
    
    // 创建一个足够大的缓冲区来存放十六进制结果
    setLength(Result, AddressSize * 2); // 因为每个字节变成两位十六进制
    
    for I := 0 to AddressSize - 1 do
    begin
      Result[I*2] := Format('%02X', [PByte(address)^[I]]);
    end;
  finally
    stream.Free;
  end;
end;

这个函数返回一个十六进制字符串，例如 "402DE759" 或者 "F3CDEF8A" 等。注意，这里的十六进制表示的是原始二进制数据的十六进制形式，不是实际的数值。