[RoboStudent]

Доброго времени суток.

Есть глобальная переменная X типа boolean.

Есть функция, в случае выполнения которой, помимо основных задач, X устанавливается в true, но сама установка занимает всегда разное время (загрузка TWebBrowser).

Есть процедура, которая выполняет набор команд, среди которых, есть команды, требующие обязательного true в X, чтобы продолжить выполнение.

Как я могу заставить программу дождаться true в X?

Порылся, нашел что-то вроде этого:

PHP код:

...
X:=false;
while false do
begin
  GetQueueStatus(QS_ALLEVENTS);
  MsgWaitForMultipleObjects(0,X,false,INFINITE,QS_ALLEVENTS);
end;
... 


но работать так, как хотелось бы, оно не хочет, а точнее - продолжают выполняться процедуры, хотя должны дождаться X:=true (по теории).

Помогите пожалуйста кто чем может

[RoboStudent]

Я уже понял, что найденный мной метод - не то.
Всё ещё нуждаюсь в поддержке.

[lmikle]

Код:

While not x do begin Application.ProcessMessages; sleep(100); end;

[urahara]

объявить глобально:

Код:

var
  hEvent: Cardinal;

само ожидание:

Код:

  hEvent := CreateEvent(nil, True, False, nil);
  GetQueueStatus(QS_ALLEVENTS);
  WaitForSingleObject(hEvent, INFINITE);

там где у тебя завершается загрузка пишешь:

Код:

  PulseEvent(hEvent); 

обычный winapi, это же так просто.

[RoboStudent]

Спасибо Вам всем большое за помощь! Я до этого как-то писал,
что я только сел за Delphi и для меня пока что это всё - тёмный лес.
Я PHP кодер =(

Так вот. Наконец-то сделал. В "DelphiWorld" нашел такую штуку:

PHP код:

procedure Delay(Value: Cardinal);
var
  F,N: Cardinal;
begin
  N:=0;
  while N<=(Value div 10) do
  begin
    SleepEx(1,True);
    Application.ProcessMessages;
    Inc(N);
  end;
  F:=GetTickCount;
  repeat
    Application.ProcessMessages;
    N:=GetTickCount;
  until(N-F >= (Value mod 10)) or (N<F);
end; 


В момент загрузки делаю X:=true; до этого выполняю процесс, откуда, сосбственно и вызываю загрузку.
Среди этих процессов, там, где нужно подождать, делаю:

PHP код:

while not X=true do
begin
  delay(5000); 


5000 просто для примера, так вообще туда переменная помещается.

Каким бы странным такой метод не казался, он работает именно так, как мне необходимо.
Еще раз всем большое спасибо!

[Страдалецъ]

Код:

while not X=true do

Только так не принято проверять логическую переменную в Дельфи.
Вот так будет несколько корректнее:

Код:

while not X do

[RoboStudent]

Спасибо за заметку! Но ведь оно одинаково работает
А если:

PHP код:

while X <> true do 


ну или не true а 1. В общем, я уже понял, что Вы имеете ввиду =)

[Страдалецъ]

Грубо говоря в вашем варианте будет 2 проверки, сначала на истинность левой и правой части X=true, а уже потом результат этого сравнения будет проверятся в цикле While. Спрашивается - зачем?