Тема: Дождаться окончания процедуры
Показать сообщение отдельно
  #3  
Старый 09.08.2010, 00:12
lmikle lmikle вне форума
Модератор
  
Регистрация: 17.04.2008
Сообщения: 8,096
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию
Код:
While not x do begin Application.ProcessMessages; sleep(100); end;
Ответить с цитированием