下面的函数是一个死循环不信的自己试下,这算是一个BUG还是?
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
procedure b;
begin
i:=0;
end;
begin
for i:=0 to 1 do
begin
b;
ShowMessage('OK');
end;
end;
下面的函数是一个死循环不信的自己试下,这算是一个BUG还是?
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
procedure b;
begin
i:=0;
end;
begin
for i:=0 to 1 do
begin
b;
ShowMessage('OK');
end;
end;
转载于:https://www.cnblogs.com/zhqian/archive/2010/10/11/1847551.html