把一个4位数组的地址赋给一个single变量var bSingle:array[0..3] of byte s :single;begin bSingle[0] :=第 1个字节; // 有可能字符反向,即第 4个字节 bSingle[1] := 第 2个字节; bSingle[2] := 第 3个字节; bSingle[3] := 第 4个字节; s := PSingle(@bSingle[0])^;