我是一個新手~~ ^^ 請問程式如果在一個while迴圈中run~~ 如何能用另一個事件來使程式跳離這個迴圈~~ 我知道在VB中有一個doevents，可以使程式即使在while迴圈中~~ 還是可以用另一個事件來跳離它~~ 請問在delphi有類似的方法嗎~~ 翻了二本厚厚的書和查了好多文章還是找不到，只好求助於各位高手了 ^^

unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;    type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;
  stop : Bool;
implementation    {$R *.dfm}    procedure TForm1.Button1Click(Sender: TObject);
var
  i : Integer;
begin
  i := 1;
  stop:=False;
  While i <= 100 do
  begin
    Application.ProcessMessages;
    if stop=true then
      Break;
    Memo1.Lines.Add(IntToStr(i));
    Inc(i);
  end;
end;    procedure TForm1.Button2Click(Sender: TObject);
begin
 stop:=not stop;
end;    end.
 

網海無涯，唯學是岸！

hi,tab0922:    1.我沒有用過VB,所以我不曉得doevents是怎麼回事.    2.原則上來說,一個while迴圈的執行,是不可能被其他程式中斷的.但可以藉由在迴圈中檢查一個變數以決定是否繼續執行來達到你要的目的.如下,希望有解決你的問題: < class="code"> unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Label1: TLabel; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private FNeedBreak:Boolean; public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var c:Currency; begin c:=0; FNeedBreak:=False; while not(FNeedBreak) do begin c:=c 1; Label1.Caption:=CurrToStr(C); Application.ProcessMessages; sleep(100); end; end; procedure TForm1.Button2Click(Sender: TObject); begin FNeedBreak:=True; end; end.

耶~~貼完才看到,qoo1234已先回了...

謝謝你們二位 ^^ 呵呵 真的是學海無涯丫 ^^