goto命令,在很多编程语言中尽可能避免使用,但是,delphi语言还是保留它,有时候使用一下,还真的挺方便。
procedure TForm1.btn1Click(Sender: TObject);
var
I, J: Integer;
label
label1;
begin
for I := 0 to 9 do
begin
for J := 1 to 6 do
begin
if J = 5 then
goto label1; //跳出循环
end;
end;
label1:
end;