Как выскочить из цикла for при закрытии формы?

[men232]

Доброго времени суток, случилась ситуация когда нужно прервать цикл for при закрытии формы. А то приходится ждать пока цикл завершится, сразу форма не закрывается. Знаю что за это отвечает exit, но вот извилин не хватает для решения проблемы.

[Человек_Борща]

завести глобальную переменну closing:boolean;
затем в начале нужного вам цикла поставить: if cloosing then exit;
А при завершении программы поставить closing:=true;

[Аватар]

Application.ProcessMessages; - важно

procedure TForm1.SpeedButton1Click(Sender: TObject);
var i: Integer;
begin
  lEnd:=False;
  for i:=1 to 100000000 do begin
    Label1.Caption:=IntToStr(i);
    Application.ProcessMessages;
    if lEnd then Exit;
  end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  lEnd:=True;
end;

[devote]

while( true ) do
begin
if application.terminated then break;
end;

[men232]

Человек_Борща, Аватар
Такой способ я пробовал, не помог.
devote
не сработал!

[Аватар]

Такой способ я пробовал, не помог.

Я его только что сочинил, прекрасно закрывается

[men232]

Возможно то что цикл не на главной формы, и цикл в функции.

вот сама процедура:

procedure GetUpdateFile(LB1, LB2 :TlistBox);
var ClPH, ClPA, ClPB:string;
I: Integer;
begin
CLOSING:=false;
for I := 0 to MainForm.ListBox1.Count -1 do
  begin
    ClPH:= copy(LB1.Items[I], 0, pos(':', LB1.Items[I]) - 1);
    ClPA:= copy(LB1.Items[I], pos(':', LB1.Items[I]) + 1, Length(LB1.Items[I]));

    MainForm.LAB_STATUS_DOWN.Caption:=DW_PATCHLIST + ClPH;
    if FileExists(Dir+ClPH) then
    ClPB:= MD5DigestToStr(MD5File(Dir+ClPH));
    // = - = - = - = - = -

    if not ( FileExists(Dir+ClPH) ) or ( ClPA <> ClPB ) then
    begin
      LB2.Items.Add(ClPH);
      MainForm.LAB_STATUS_DOWN.Caption:=DW_OUTDATE + ClPH;
      SendMessage(LB2.Handle, WM_VSCROLL, 1, 0);
    end;

    Application.ProcessMessages;
    if CLOSING then exit;
    
  end;
  MainForm.LAB_STATUS_DOWN.Caption:=DW_DONE;
end;

И вот что у меня в on close:

procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
CLOSING:=true;
//LoadForm.Free;
end;

Получается так что в событии OnClose, код не выполняется пока цикл не завершится.

[Аватар]

А откуда она вызывается? Возможно там особенности есть?

[men232]

в событии формы OnActive

[Аватар]

Добавил в свой код. Никаких проблем нет

procedure TForm1.FormActivate(Sender: TObject);
begin
  SpeedButton1Click(SpeedButton1);
end;

вы бы в лог последовательность событий и действий выгружали, и можно сделать какие-то выводы - где теряется обработка закрытия