bb:array of aa;//好像是添加了一个数组的引用,如果修改了数据会有什么情况发生呢,估计里两个数组里的数据都被修改了吧!
按一楼给出更多的代码:(一楼不要生气,并非为抢分而来)type TMyRcd = record ID : integer; Name : String[10];//注意,应该使用定长字符串 Cls : String[10]; Score : Double; end;procedure TForm1.Button1Click(Sender: TObject); var A : Array of TMyRcd; I : integer; begin SetLength(A, 7); for I := Low(A) to High(A) do begin A[I].ID := I; A[I].Name := IntToStr(I); //... end; //同样也可以For ..To .. Do 得到所有数据 end;
a:string;
b:string;
..........
end;bb:array of aa;
myconst : array [0..7,0..4] of integer;
2 李四 计算机 75
3 王五 计算机 65
4
5
6
7
我想通过 for i:=0 to 7得到所有数据
TMyRcd = record
ID : integer;
Name : String[10];//注意,应该使用定长字符串
Cls : String[10];
Score : Double;
end;procedure TForm1.Button1Click(Sender: TObject);
var
A : Array of TMyRcd;
I : integer;
begin
SetLength(A, 7);
for I := Low(A) to High(A) do
begin
A[I].ID := I;
A[I].Name := IntToStr(I);
//...
end;
//同样也可以For ..To .. Do 得到所有数据
end;