Delphi double 到字节数组

Question

是将 double 值转换为其字节表示形式的简单方法吗？我尝试使用如下指针:

var
  double_v:double;
  address:^double;
....
double_v:=100;
address:=@double_v;

但是我的每个概念:如何从地址读取这 8 个字节，以“AV”结尾。

Answer 1

使用变体记录

Type
  TDoubleAndBytes = Record
    case boolean of
      false : (dabDouble : Double);
      true  : (dabBytes : Array [0..7] Of Byte);
  end;

将double值赋给dabDouble，并通过dabBytes读取字节

var
  myVar : TDoubleAndBytes;
  i : integer;

begin
  myVar.dabDouble := 100;
  for i:=0 to 7 do write(myVar.dabBytes[i]);