Использование задержки в DELPHI.......

← →
Evgen.RU (2002-09-10 11:34) [0]

Hi Мастера DELPHI!Помогите пожалуйста.
В Турбо Паскале можно мыло включить Uses CRT и тогда
использовать очень удобную команду Delay.Можно ли, а
главное как использовать Delay в DELPHI.Если нельзя, то какие есть альтернативы?
Зарание всем благодарен, надеюсь на вашу помощь :).

← →
RV © (2002-09-10 11:39) [1]

timer
sleep

← →
Ученик © (2002-09-10 11:41) [2]

RX

procedure Delay(MSecs: Longint);
var
FirstTickCount, Now: Longint;
begin
FirstTickCount := GetTickCount;
repeat
Application.ProcessMessages;
{ allowing access to other controls, etc. }
Now := GetTickCount;
until (Now - FirstTickCount >= MSecs) or (Now < FirstTickCount);
end;

Из FAQ:

procedure TForm1.Delay(msecs : Longint); var FirstTick : longint; begin FirstTick:=GetTickCount; repeat Application.ProcessMessages; {для того чтобы не "завесить" Windows} until GetTickCount-FirstTick >= msecs; end;

Использование задержки в DELPHI....... Найти похожие ветки