VPF::Как сделать паузу. - Форум программистов

Elfin

Дата 6.11.2004, 21:32 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 37
Регистрация: 28.10.2004

Репутация: нет
Всего: нет

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

Pakshin A. S.

Дата 6.11.2004, 21:35 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61

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

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

Fedor

Дата 7.11.2004, 00:48 (ссылка)

(нет голосов)

Загрузка ...

Днепрянин

Профиль
Группа: Участник
Сообщений: 2090
Регистрация: 8.2.2003
Где: Великий

Репутация: нет
Всего: 32

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

--------------------

Мы - Днепряне. Мы всех сильней.

ДЫМ

Дата 7.11.2004, 02:52 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 224
Регистрация: 6.1.2004

Репутация: 8
Всего: 8

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

Код


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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »