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

[Mixasik]

Доброго времени суток. Вот сижу и думаю, выполнив некую процедуру из нее вызываю ProcessMessage для того, что.s избежать зависания интерфейса... Но как реализовать остановку этой процедуры? Например, если она не сильно кретична и можно е прервать есть ли методы как из одной процедуры прервать выполняющуюся другую? Или же просто использовать переменную-маркер и если она становится ложна прервать процедуру изнутри?
p.s. Просто интересно как вы обрабатываете такие ситуации?

[Пепел Феникса]

если честно то я использую потоки в таком случае

[DarkEvil]

Ну я обычно такие процедуры которые нужно отменять вызываю в потоках, и вслучае если больше ненуждаюсь в работе этой процедуры то
убиваю поток,
а в Вашем случае я б рекомендувал глобальную переменную типо:

var
  Terminated: Boolean

---\\\Остальной код\\\---


if Terminated then Exit; // а это будет проверка не завершаем мы ли досрочно работу процедуры

[Mixasik]

Сообщение от Пепел Феникса

если честно то я использую потоки в таком случае

В принципе уже дошел до этого, но переделывать неохото стало, и почему то не работал ADOQuery в потоке...

А кроме глобальной перемнной есть варианты? Это уже чисто ради интереса?

[s.Creator]

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

... выполнив некую процедуру из нее вызываю ProcessMessage для того, что.s избежать зависания интерфейса...

Не совсем понят вызываете после выполнения процедуры или в конце процедуры или когда?
В первых двух случаях (если процедура не выполняется в длинном цикле) приложение и так должно перейти к обработке сообщений.

ProcessMessage, как я понимаю хорошо использовать если у вас длительный код в виде цикла. Тогда на каждом проходе дать возможность приложению обработать сообщения (например нажатие кнопки), затем проверить глобальную переменную (выставленную перед началом цикла) как написал DarkEvil (можно вместо глобальной использовать поле формы

  TForm1 = class(TForm)
    // .......
  private
    MyFunctTerminated: Boolean;

А эту переменную сбрасывать в обработчике нажатия кнопки.

(могу в чем-то ошибаться - давно не использовал ProcessMessage, предпочитаю потоки)

[Mixasik]

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

[DarkEvil]

Ну можна в другой функции Terminated установить в true

[Mixasik]

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

Ну можна в другой функции Terminated установить в true

Это, если поток прерывать или изменить значение глобальной переменной, которая проверяется внутри первой функции и она сама себя прервет, а как ее принудительно прервать?)

[DarkEvil]

Что-то я нечего с ваших слов непонял
вот вам пример:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Test_button: TButton;
    Terminate_button: TButton;
    procedure Test_buttonClick(Sender: TObject);
    procedure Terminate_buttonClick(Sender: TObject);
  private
    procedure test();
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Terminated : Boolean = false;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.Terminate_buttonClick(Sender: TObject);
begin
  Terminated := true;
end;

procedure TForm1.test;
var
  I: Integer;
begin
  for I := 0 to 10000000 do
  begin
    if Terminated then Exit
    else Form1.Caption := 'I = ' + IntToStr(I);
    Application.ProcessMessages;
  end;
end;

procedure TForm1.Test_buttonClick(Sender: TObject);
begin
  test();
end;

end.

[Polotenchik]

Ну так надо прописать в каком случаи Terminated будет тру и когда выходить. Т.е сейчас у Вас просто если Terminated = true тогда остановить цикл? А когда Terminated будет равняться правде та? Цикл та этого не знает...