procedure TForm1.btnStartClick(Sender: TObject);
begin
...........
While ..........do
.......
.......
end;
......
end;
이런 형식으로 되있을때 예를 들어 STOP버튼을 누르면 위의 루프를 돌다가도 위의 프로시져를 멈추게 하려면 어떻게 해야하나요...
예를 들면
procedure TForm1.btnStopClick(Sender: TObject);
begin
(btnStartClick프로시져를 멈추게 하는 코딩) --- 어떻게 해야하나요?
end;
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;
>
>