Как выпоступаете в случае использования ProcessMessage?

[s.Creator]

Сообщение от Mixasik

Да именно в цикле) Но мне самое интересное, можно ли из одной функции завершить(прервать) другую... Вот любопытно и все.

Не у верен но попробуй использовать abort

[Polotenchik]

Сообщение от s.Creator

Не у верен но попробуй использовать abort

Ага! Что-то типа того:

var
  I: Integer;
begin
  for I := 0 to 10000000 do
  begin
    if i=10 then
    break;
  end;
end;

[DarkEvil]

Polotenchik
Если я правильно вас понял, то вас интересует как после того как переменная Terminated установленная в true возможность повторной остановки цикла?
если да то для этого немного модефицируем код
было:

  begin
    if Terminated then Exit

стало:

  begin
    if Terminated then begin Terminated := false;  Exit; end

[Polotenchik]

DarkEvil, да это не мне! Я как бы сам пытаюсь помочь.

[DarkEvil]

Polotenchik
Суть вопроса заключалась если я канешно правильно понял то как остановить одну процедуру используя вторую

[Mixasik]

Сообщение от DarkEvil

Polotenchik
Суть вопроса заключалась если я канешно правильно понял то как остановить одну процедуру используя вторую

Именно и без использования каких либо переменных, типа вызвал процедуры написал там имя закрываемой процедуры в параметрах(либо адрес) и та закрылась... Интересно возможно такое реализовать?

[DarkEvil]

Ну такое только в потоках

[s.Creator]

Сообщение от Polotenchik

Ага! Что-то типа того:

var
  I: Integer;
begin
  for I := 0 to 10000000 do
  begin
    if i=10 then
    break;
  end;
end;

Вообще-то я подразумевал

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to 10000000 do
  begin
    Button1.Caption := IntToStr(I);
    Application.ProcessMessages;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  abort;
end;

Но уже сам проверил - НЕРАБОТАЕТ.