关于Array of byte 转换 Float 问题

[tianjin]

var
a: array[0..3] of byte;
b: Single;
begin
a[0] := $00;
a[1] := $00;
a[2] := $FA;
a[3] := $44;
b := PSingle(@a)^;
showmessage(FloatToStr(b));
end;
上面显示为2000 正确



var
a: array of byte;
b: Single;
begin
SetLength(a, 4);
a[0] := $00;
a[1] := $00;
a[2] := $FA;
a[3] := $44;
b := PSingle(@a)^;

showmessage(FloatToStr(b));
end;
显示为1.9817325433e-38 错误的

为什么会出现这样的结果，我需要动态设置数组长度，要正确的结果，应该怎么写，谢谢大侠们。

[SQLDebug_Fan]

动态数组的名字不是内存的首地址，固定数组是，所以用kaikai_kk的方法可以。

[ffwin]

[kaikai_kk]

b := PSingle(@a)^; 改成 b := PSingle(@a[0])^;

[Scinyeah]

楼上正解……

[tianjin]

谢谢大家的帮助，长知识了，非常感激

[hsfzxjy]

楼上正解 。。。。。