请问为什么I是个非常大的数值
procedure TForm1.Button1Click(Sender: TObject);
var i:Integer;
begin
i:=0;
for i:=0 To 10 do
Showmessage('1');
end;
procedure TForm1.Button1Click(Sender: TObject);
var i:Integer;
begin
i:=0;
for i:=0 To 10 do
Showmessage('1');
end;
可以再定义一个变量呀J:Integer;J := 0;
for i:=0 To 10 do
begin
Inc(J); //那么这个J就是跟I一样的了
end;
如果你发布的时候将优化去掉可能不太好