Delphi 单精度浮点数与字节数据的相互转化处理

最近看modbus的协议需要用到浮点数的转换，原本想着还要照着IEEE的浮点数结构自己来搞，Google下原来有更好的解决方案，粘贴下来以备不时之需，贴代码(代码仅作示意，自己整理下) ：

1、字节数组转为Single，传入参数自己处理下，嘿嘿

function BytesToSingle():Single;
var
  bSingle:array[0..3]   of   byte;
begin
//49E48E68
  bSingle[3]   :=   $49;
  bSingle[2]   :=   $E4;
  bSingle[1]   :=   $8E;
  bSingle[0]   :=   $68;
  Result := PSingle(@bSingle[0])^;
end;

2、Single转为字节数组

function SingleToBytes():TBytes;
var
  f:single;
  bSingle:array[0..3] of byte;
begin
  f:=1872333;
  Move(f,bSingle,sizeof(f));
  Result := bSingle;
end;

SingleToBytes的另外一个版本：

function SingleToBytes():Tbytes;
var
    n   :   Single;
    bSingle:array[0..3]of Byte;
begin
  n:=1872333;
  bSingle[0] := (PByte(@n)+0)^;     //第一位的值
  bSingle[1] := (PByte(@n)+1)^;     //第二位的值
  bSingle[2] := (PByte(@n)+2)^;     //第三位的值
  bSingle[3] := (PByte(@n)+3)^;     //第四位的值
end;

注意Delphi早前的版本好像不支持PByte运算，可以如此PByte(PChar(@n)+0)^。