var
R:Real;
Temp: array[0..7] of Byte absolute R;
Temp和R的地址重叠,即R和Temp的首地址一样(@temp=@R),
Real占用个字节,用Temp的可以存取R的8个字节的数据。
如
var
R,R1:Real;
Temp: array[0..7] of Byte absolute R;
Temp1:array[0..7] of byte Absolute R1;
i:integer;
begin
R:=100;
R1:=99;
for i:=0 to 7 do
temp1:=temp;
...
Label1.Caption:=floattostr(r1);
end;
你会看到,R1=100;关键是Absolute