如何退出双重循环

Question

for i:=0 to 10000 do
  for j:=0 to 10000 do
  begin
    ...
    if 退出按纽是否被单击 then
      退出双重循环；break;
    ...
  end;
break;

Answer 1

label
  loop;
begin
for i:=0 to 10000 do
  for j:=0 to 10000 do
  begin
    ...
    if 退出按纽是否被单击 then
      goto loop；
    ...
  end; 
loop: {不要忘了goto};
end;

Answer 2

做个boolean变量
判断一下不就行了

Answer 3

var
  breaked: boolean;
begin
  for i:=0 to 10000 do
  begin
    for j:=0 to 10000 do
    begin
      ...
      if 退出按纽是否被单击 then
      begin
        breaked := True;
        break;
      end;
      ...
    end;
    if breaked then
      break;
  end;
end;

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
label
  lLoop;
var
  I, J: Integer;
begin
  Tag := 0;
  for I := 0 to 10000 do
    for J := 0 to 10000 do begin
      Application.ProcessMessages; //不加就点不了
      Caption := Format('%d,%d', [I, J]);
      if Tag <> 0 then goto lLoop;
    end;
  lLoop: ;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  Tag := 1;
end;