呵,,,真是奇怪了。
在我的机器里就是能运行,还不报错,我同时做了好几个这样的过程都没问题。
你们也到自己机器上去试试吧。看有没有问题。
procedure TForm1.Button1Click(Sender: TObject);
var
abc:array of integer;
begin
setlength(abc,100);
abc[190]:=50;
showmessage(IntToStr(abc[190]));
end;
procedure TForm1.Button2Click(Sender: TObject);
var
abc:array of integer;
begin
setlength(abc,100);
abc[190]:=50;
showmessage(IntToStr(abc[190]));
end;
procedure TForm1.Button3Click(Sender: TObject);
var
abc:array of integer;
begin
setlength(abc,100);
abc[190]:=50;
showmessage(IntToStr(abc[190]));
end;
procedure TForm1.Button4Click(Sender: TObject);
var
abc:array of integer;
begin
setlength(abc,100);
abc[190]:=50;
showmessage(IntToStr(abc[190]));
end;
procedure TForm1.Button5Click(Sender: TObject);
var
abc:array of integer;
begin
setlength(abc,100);
abc[190]:=50;
showmessage(IntToStr(abc[190]));
end;
procedure TForm1.Button6Click(Sender: TObject);
var
abc:array of integer;
begin
setlength(abc,100);
abc[190]:=50;
showmessage(IntToStr(abc[190]));
end;
全部OK 真搞不明白是怎么回事儿?
我的机器 IBM T43 XP DELPHI6 我之所以贴出这个问题来就是因为这个问题太奇怪了。