关于动态数组请教

[李秋步]

我有一段代码如下：

type b=record
p1,p2,p3:integer;
end;

var i:integer;
a:array of b;

for i := 0 to 100 do
begin
setlength(a,high(a)+1);
a[high(a)].p1:=i;
a[high(a)].p2:=i*4;
a[high(a)].p3:=i*3;
end;

为何出现写错误？

[netwolfds]

在for i := 0 to 100 do的前面加一句setlength(a,1)就没有问题了。
在你第一次setlength(a,high(a)+1);的时候，由于a没有长度，所以high(a)是-1，
你执行的是setlength(a,0),

[lincanwen]

setlength(a,1);
for i := 0 to 100 do
begin
a[ip1:=i;
a[ip2:=i*4;
a[ip3:=i*3;
setlength(a,high(a) + 2); //high返回最高数组的最好维数，如返回3，则实际有4个
//元素，所以重新设置要设置5个元素。
end;

[lmpeel]

for i := 0 to 100 do
begin
setlength(a,length(a)+1);
a[length(a)-1].p1:=i;
a[length(a)-1].p2:=i*4;
a[length(a)-1].p3:=i*3;
end;