Delphi双字节数组

发布时间：2020-12-15 06:10:41 所属栏目：大数据来源：网络整理

导读：将double值转换为其字节表示形式的简单方法？我尝试使用如下指针： var double_v:double; address:^double;....double_v:=100;address:=@double_v; 但每一个我的概念：如何从地址读取这8个字节,以“AV”结尾. 解决方法使用“绝对”的两个例子… 用作功能 fu

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

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

但每一个我的概念：如何从地址读取这8个字节,以“AV”结尾.

解决方法

使用“绝对”的两个例子…

用作功能

function GetDoubleByte(MyDouble: Double; Index: Byte): Byte;
var
  Bytes: array[0..7] of Byte absolute MyDouble;
begin
  Result := Bytes[Index];
end;



procedure TForm1.Button1Click(Sender: TObject);
var
 MyDouble:Double;
 DoubleBytes:Array[0..7] of Byte absolute MyDouble; // direct local use
begin
  MyDouble := 17.123;
  ShowMessage(IntToStr(DoubleBytes[0])); // local usage

  ShowMessage(IntToStr(GetDoubleByte(MyDouble,0))); // via function call

end;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!