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

Question

만약 예를 들어

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

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

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

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

탈퇴한 사용자 · Accepted Answer

안녕하세요?시작 버튼과 종료 버튼을 통해 루프문을 제어하고 싶으시다고 했는데 밑에 예제로 통해 알려드리겠습니다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;