delphi2007 教程

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(秀峰)     的例子也行。  
  謝謝。