Приветствую!
Необходимо выполнить метод одного объекта и дождаться его завершения. А это можно узнать только через событие.
Код "ожидания" должен одинаково хорошо работать как в главном, так и в любом другом потоке приложения.
Какие еще варианты предложите? Всё в одном потоке: и объект FCalculator, и вызывающий его TMyTask
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
type
TMyTask = class
private
FCalculator : TCalculator;
FCalculatedFlag : boolean;
procedure OnCalculated(Sender: TObject);
...
end;
//------------------------------------------------------------------------------
constructor TMyTask.Create();
begin
FCalculatedFlag := false;
FCalculator := TCalculator.Create();
FCalculator.OnCalculated := OnCalculated;
end;
//------------------------------------------------------------------------------
procedure MyProcessMessages();
var
lpMsg : TMsg;
begin
while PeekMessage(lpMsg,0,0,0,PM_REMOVE) do
begin
TranslateMessage(lpMsg);
DispatchMessage(lpMsg);
end;
end;
//------------------------------------------------------------------------------
procedure TMyTask.Execute();
begin
FCalculatedFlag := false;
FCalculator.Calculate();
while not FCalculatedFlag do
begin
sleep(10);
MyProcessMessages();
end;
//...
end;
//------------------------------------------------------------------------------
procedure TMyTask.OnCalculated(Sender: TObject);
begin
...
FCalculatedFlag := true;
end;
