[Demonuka]

Есть функция. Необходимо не возвращать Result этой функции, до тех пор, пока X не станет TRUE. Проблема в том, что время, за которое X примет положительное значение большое и всегда различно (40-60 секунд). Использовать sleep естесственно не выход...Как быть?

[m1sclick]

Ну так пускай работает пока x не станет true. Какие проблемы? Где код?

[Demonuka]

Код:

  if PSoed = 'Разъеденено' then
      x := true;
    if PSoed = 'Параметры применены' then
      x := true;
    if PSoed = 'Разъеденено' then
      x := true;
    if PSoed = 'Ошибка имени устройства' then
      x := true;
    if PSoed = 'Ошибка соединения' then
      x := true;
    if PSoed= 'Соединение невозможно' then
      x:=true;
if x = true then Result:=1

Но проверяется этот X только один раз (сразу), а нужно ждать, пока x станет TRUE (PSoed меняется в неконтролируемой мной процедуре).

[Nikitiy_II]

можно в таймер засунуть...

[m1sclick]

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

Код:

  if PSoed = 'Разъеденено' then
      x := true;
    if PSoed = 'Параметры применены' then
      x := true;
    if PSoed = 'Разъеденено' then
      x := true;
    if PSoed = 'Ошибка имени устройства' then
      x := true;
    if PSoed = 'Ошибка соединения' then
      x := true;
    if PSoed= 'Соединение невозможно' then
      x:=true;
if x = true then Result:=1

Но проверяется этот X только один раз (сразу), а нужно ждать, пока x станет TRUE (PSoed меняется в неконтролируемой мной процедуре).

Ну так:

Код:

repeat
//-//-//-//-//-//
until x = true;

[PhoeniX]

Application.ProcessMessages;

[Nikitiy_II]

PHP код:

if (PSoed = 'Разъеденено') or (PSoed = 'Параметры применены') or
    
   (PSoed = 'Разъеденено') or 
    (PSoed = 'Ошибка имени устройства') or 
    (PSoed = 'Ошибка соединения') or
    (PSoed= 'Соединение невозможно') then Result:=1 


и это поставить в таймер, либо вызывать каждый раз, когда PSoed получает новое значение