VPF::Dealy - Форум программистов

Гость_welt

Дата 1.12.2005, 20:58 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Есть ли какая-нибудь разница между работой этих кодов?
Что эффективней?????

Код


procedure Delay(ms : Longint);
var
   FirstTick  : longint;
 freq, c1, c2 : LARGE_INTEGER;
            x : Extended;
begin
 QueryPerformanceFrequency(TLargeInteger(freq));
 x:=freq.QuadPart/1000*ms;
 QueryPerformanceCounter(TLargeInteger(c1));
  while(c2.QuadPart-c1.QuadPart < x) do
   QueryPerformanceCounter(TLargeInteger(c2));
end;

Код


procedure Delay(msecs : Longint);
var
   FirstTick : longint;
begin
     FirstTick:=GetTickCount;
     repeat    
       Application.ProcessMessages; {ДМС ФПЗП ЮФПВЩ ОЕ "ЪБЧЕУЙФШ" Windows}
     until GetTickCount-FirstTick >= msecs;
end;

YurikGL

Дата 1.12.2005, 21:11 (ссылка)

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

Загрузка ...

Бывалый

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

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

Второй, вроде лучше.... если я правильно понял, то во втором случае система сможет обрабатывать другие действия и не будет "виснуть"...

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

Snowy

Дата 1.12.2005, 22:04 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Первый более точный, но не имеет смысла, т.к правильнее в данном случае использовать Sleep;
Второй позволяет сделать паузу без приостановки работы приложения, но стоит заменить строку с Application.ProcessMessages на Application.HandleMessage
Кроме того второй вариант не будет работать в программах, не использующих Forms.
Используй Sleep - проще и логичней.

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