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

我用一個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   )    
  給個例子。

不想补充了

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

--------------------------
新闻：专注、极致、快、口碑 互联网创业的葵花宝典
导航：博客园首页  知识库  新闻  招聘  社区  小组  博问  网摘  找找看