为什么下面的代码回出现错误？(50分)

T

tlzcj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-28

• #1

var
i:integer;
a:array of integer;
begin
setlength(a,10);
a[0]:=0;
for i:=0 to 10 do
a[i+1]:=a+1;
for i:=0 to 10 do
label1.caption:=a;
end;
在使用DELPHI7的时候老是出现错误！不知道为什么。

 

Q

qince

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-28

• #2

数组越界了，改成如下代码吧：
var
i:integer;
a:array of integer;
begin
setlength(a,11);
a[0]:=0;
for i:=0 to 9 do
a[i+1]:=a+1;
for i:=0 to 10 do
label1.caption:=a;
end;

 

T

tlzcj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-28

• #3

接受答案了.