Q&A

  • 다른 프로시저의 루프빠져나오는 법!!
procedure TForm1.btnStartClick(Sender: TObject);

begin

...........

While ..........do

.......

.......

end;

......



end;



이런 형식으로 되있을때 예를 들어 STOP버튼을 누르면 위의 루프를 돌다가도 위의 프로시져를 멈추게 하려면 어떻게 해야하나요...



예를 들면

procedure TForm1.btnStopClick(Sender: TObject);

begin

(btnStartClick프로시져를 멈추게 하는 코딩) --- 어떻게 해야하나요?

end;





1  COMMENTS
  • Profile
    최혜룡 2001.05.04 07:28
    var StopFlag : Boolean;

    procedure TForm1.btnStartClick(Sender: TObject);

    begin

    StopFlag := false;

    1)방법

    While ..........do

    if StopFlag then

    break;

    Application.ProcessMessages;

    end;

    2)방법

    While (not StopFlag) do

    Application.ProcessMessages;

    ...

    end;

    end;



    procedure TForm1.btnStopClick(Sender: TObject);

    begin

    StopFlag := true;

    end;







    초보궁금이 wrote:

    > procedure TForm1.btnStartClick(Sender: TObject);

    > begin

    > ...........

    > While ..........do

    > .......

    > .......

    > end;

    > ......

    >

    > end;

    >

    > 이런 형식으로 되있을때 예를 들어 STOP버튼을 누르면 위의 루프를 돌다가도 위의 프로시져를 멈추게 하려면 어떻게 해야하나요...

    >

    > 예를 들면

    > procedure TForm1.btnStopClick(Sender: TObject);

    > begin

    > (btnStartClick프로시져를 멈추게 하는 코딩) --- 어떻게 해야하나요?

    > end;

    >

    >