Показать сообщение отдельно
Старый 24.02.2008, 22:14   #13
Гость
 
Сообщений: n/a
По умолчанию

Код:
procedure Pause2(Timewait: Integer);
var
 begin_time: double;
begin
  begin_time:=now;
  while Trunc(86400000*(now-begin_time))<TimeWait do ;
end;
Использовать как delay -> возврат из функции будет только после выполнения условия.
  Ответить с цитированием