델파이에서 루프문을 빠져나올수 있게 이벤트 추가하고싶어요

Question

만약 예를 들어

시작이라는 버튼을 누르면 루프문이 시작되고 종료라는 버튼을 누르면

루프문이 종료되게끔 하고싶은데요

시작 버튼 이벤트에 루프문을 만들긴했는데

종료 버튼 이벤트에는 어떻게 해야하나요??

Answer 1

안녕하세요?

시작 버튼과 종료 버튼을 통해 루프문을 제어하고 싶으시다고 했는데 밑에 예제로 통해 알려드리겠습니다

Private ExitLoop: Boolean; procedure TForm4.btnLoopClick(Sender: TObject); //루프 시작버튼 var I: Integer; begin LoopExit := False; //루프문 for I := 0 to 9999 do begin Edit1.Text := i.ToString; Application.ProcessMessages; if LoopExit then Break; end; end; procedure TForm4.btnExitLoopClick(Sender: TObject); //루프 종료버튼 begin LoopExit := True; //루프 탈출 end;