Помогите разобраться с алгоритмом!!!

← →
dimonf © (2002-12-12 21:56) [0]

Объясните дурню, сам не могу понять :(
Как мне организовать цикл из которого я могу обрабатывать события других компанентов.
Грубо говоря у меня есть база данных по которой я "пробегабсь":
repeat
...
until
В данном цикле я хочу обрабатывать событие другого компанента,
в данном случае определяю DNS SMTP сервера OnRequestDone.
Как мне приостановить цикл до тех пор пока у меня не сработает OnRequestDone. А потом продолжить цикл дальше?
У меня есть мысль по созданию потока:
...
CreateThread(nil, 0, @aaa, nil, 0, id);
...
function aaa(p: integer): integer;
begin
...
Result := 0;
end;
...
но я не уверен, что мысль правильная. Как быть, посоветуйте Гурру!!!

← →
Song © (2002-12-12 22:16) [1]

Application.ProcessMessages

← →
Моджахед (2002-12-12 22:18) [2]

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

Repeat Until Flag<>True;

← →
dimonf © (2002-12-12 22:18) [3]

Application.ProcessMessages пробовал не помогает :(

repeat

while (not RequestIsDone) do Application.ProcessMessages ;

until (...) ;

Помогите разобраться с алгоритмом!!! Найти похожие ветки