Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Как сделать паузу.

Автор: Elfin 6.11.2004, 21:32

Как сделать паузу в работе программы кроме sleep(...) ? Например мне надо чтобы буквы строки выводились в мемо одна за одной с небольшой задержкой.

Автор: Pakshin A. S. 6.11.2004, 21:35

А чем sleep не нравится?
Добавлено @ 21:40
ОПЯТЬ ПОИСК!!! smile

через минуту можно найти:
http://forum.vingrad.ru/index.php?showtopic=13631&unread=1&hl=

Автор: Fedor 7.11.2004, 00:48

А может лучше в таком случае по OnTimer сделать?

Автор: ДЫМ 7.11.2004, 02:52

Держи процедурку

Код


procedure Delay(MSecs: Longint);
var
  FirstTickCount, Now: Longint;
begin
  FirstTickCount := GetTickCount;
  repeat
    // здесь обрабатываются сообщения (чтобы контролы во время 
    // выполнения были доступны)
    Application.ProcessMessages;
       Now := GetTickCount;
  until (Now - FirstTickCount >= MSecs) or (Now < FirstTickCount);
end;