X
xbl
Unregistered / Unconfirmed
GUEST, unregistred user!
出鬼了!
怎么我这里就是出错呢?
我执行到 Edit1.Text := FloatToStr(A2[0].B[0])
时,就报错:
Access violation at address 0045D653 in module 'Project1.exe'.
Read of address 00000000.
这是为什么呢?
下面是我的代码:
procedure TForm1.Button1Click(Sender: TObject);
type
TADouble = array of Double;
TA = record
B: TADouble;
C: Integer;
end;
var
D1: TADouble;
A1, A2: array of TA;
begin
SetLength(D1, 2);
D1[0] := 1.1;
D1[1] := 1.2;
SetLength(A1, 1)
//这里设置为1,就是会报错
A1[0].B := @D1[0];
A1[0].C := 1;
A2 := Copy(A1, Low(A1), High(A1))
//复制A1-->A2
Edit1.Text := FloatToStr(A2[0].B[0])
//执行到这里报错!!!错误信息见下面
Edit2.Text := FloatToStr(A2[0].B[1])
//
end;
错误:
Access violation at address 0045D653 in module 'Project1.exe'.
Read of address 00000000.
怎么我这里就是出错呢?
我执行到 Edit1.Text := FloatToStr(A2[0].B[0])
时,就报错:
Access violation at address 0045D653 in module 'Project1.exe'.
Read of address 00000000.
这是为什么呢?
下面是我的代码:
procedure TForm1.Button1Click(Sender: TObject);
type
TADouble = array of Double;
TA = record
B: TADouble;
C: Integer;
end;
var
D1: TADouble;
A1, A2: array of TA;
begin
SetLength(D1, 2);
D1[0] := 1.1;
D1[1] := 1.2;
SetLength(A1, 1)
//这里设置为1,就是会报错
A1[0].B := @D1[0];
A1[0].C := 1;
A2 := Copy(A1, Low(A1), High(A1))
//复制A1-->A2
Edit1.Text := FloatToStr(A2[0].B[0])
//执行到这里报错!!!错误信息见下面
Edit2.Text := FloatToStr(A2[0].B[1])
//
end;
错误:
Access violation at address 0045D653 in module 'Project1.exe'.
Read of address 00000000.