求delphi中int和float转4字节16进制byte数组的方法

[kshmilyhui]

请帖下详细源码 谢谢

[gobiz]

var
  FInt   : Integer;
  FSin   : Single;
  FBytes : array[0..3] of Byte;
begin
  FInt := 12345;
  FSin := 12345.6789;
  Move(FInt, FBytes[0], SizeOf(FBytes));
  Move(FSin, FBytes[0], SizeOf(FBytes));
end;

[gobiz]

如果要和下位机通讯的话，注意数据的存储格式，究竟是高位在前、低位在后还是低位在前、高位在后。

[bdmh]

var
  iarr : array [0..3] of Byte;
  farr : array [0..3] of Byte;
  i : Integer;
  f : Single;
begin
  i := 100;
  f := 12.35;
  Move(i,iarr[0],Length(iarr));
  Move(f,farr[0],Length(farr));
end;

[wm86]

type
TByteNumber = record
case integer of
0: (IntNumber: Integer);
1: (FloatNumber: Single);
9: (Bytes: array[0..3] of Byte);
end;

var
MyNumber: TByteNumber;

begin
MyNumber.IntNumber := 100;
//或者MyNumber.FloatNumber := 12.35;
//现在MyNumber.Bytes已经可用了
end;