如何用命令中斷for 語句的循環。

Question

我用一個stop按鈕中斷for語句如何做。
好像用goto語句可以實現。請做過的給個例子。

Answer 1

给你一个例子:var
  bStop : Boolean;procedure TForm1.btnStartClick(Sender: TObject);
var
  iLoop : Integer;
begin
  bStop := False;
  for iLoop := 1 to 1000000000 do
  begin
    Application.ProcessMessages;
    if bStop then
    begin
      ShowMessage (Format('Stop at %d!', [iLoop]));
      break;
    end;
  end;
end;procedure TForm1.btnStopClick(Sender: TObject);
begin
  bStop := True;
end;

Answer 2

to:ly_liuyang(Liu Yang LYSoft http://lysoft.7u7.net) 
給個例子。

Answer 3

jadeluo(秀峰)  的例子也行。
謝謝。