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

如何用命令中斷for 語句的循環。 Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiDB/html/delphi_20061220114941206.html
我用一個stop按鈕中斷for語句如何做。  
  好像用goto語句可以實現。請做過的給個例子。

break

给你一个例子:  
   
  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;  
 

Break/Goto   label

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

不想补充了

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

转载于:https://www.cnblogs.com/delphi2007/archive/2009/02/19/1394106.html