四个字节的byte转为float类型解决思路

四个字节的byte转为float类型
如题

------解决方案--------------------
http://apps.hi.baidu.com/share/detail/7077601
------解决方案--------------------
var
B : array [0..3] of byte;
F : Single;
begin
B[0] := ..
B[1] := ..
...
F := PSingle(@B)^;//这样就行了
end;
------解决方案--------------------

探讨

http://apps.hi.baidu.com/share/detail/7077601

------解决方案--------------------
数据结构除了用指针，也可以用可变记录类型
//短整形
TWordRec = record
case Integer of
0:(vw:Word);
1:(bL,bH:Byte);
end;
//单精度浮点数(4字节)
TSingleRec = record
case Integer of
0:(Value:Single);
1:(bLL,bLH,bHL,bHH:Byte);
end;
//双精度浮点数(8字节)
TDoubleRec = record
case Integer of
0:(Value:Double);
1:(blLL,blLH,blHL,blHH,bhLL,bhLH,bhHL,bhHH:Byte);
end;

注意下计算机中的数是按从低到高的字节顺序存储的就好。