Пауза в программе

← →
PCpuzik (2002-11-05 14:47) [0]

Как сделать так чтобы моя программа не работала в течении некоторого времени, т.е. идут
--что-то там
--Пауза
--Продолжение
Т.е. аналог паскалевскому Delay?

← →
Skier (2002-11-05 14:48) [1]

>PCpuzik
Sleep(...) ?

← →
KoluChi (2002-11-05 15:02) [2]

Лови:
procedure TForm1.Delay(AInterval: Integer); {миллисекунды} var timer: tTimer; begin timer := TTimer.Create(nil); with timer do try Interval := AInterval; OnTimer := OnTimerTimer; Enabled := true; repeat Application.ProcessMessages(); until not Enabled; finally free(); end; end; procedure TForm1.OnTimerTimer(Sender: tObject); begin if Sender.inheritsFrom(TTimer) then (Sender as tTimer).Enabled := false; end;

← →
Дремучий (2002-11-05 15:03) [3]

если аналог, то тогда

> Skier © (05.11.02 14:48)
> Sleep(...)

← →
SaS13 (2002-11-05 15:06) [4]

можно проще:
procedure Wait(nWait: integer);
var wTemp, Sec, SecNew: Word;
begin
DecodeTime(SysUtils.Time, wTemp, wTemp, Sec, wTemp);
repeat
DecodeTime(SysUtils.Time, wTemp, wTemp, SecNew, wTemp);
Application.ProcessMessages
until Abs(Integer(Sec - SecNew) ) >= nWait
end;

← →
KoluChi (2002-11-05 15:23) [5]

Согласен

← →
KoluChi (2002-11-05 15:27) [6]

procedure Wait(nWait: integer);
var wTemp, Hour, Minute, Sec, SecNew: Word;
begin
DecodeTime(SysUtils.Time, Hour, Minute, Sec, wTemp);
Sec := Sec + 60 * Minute + 3600 * Hour;
repeat
DecodeTime(SysUtils.Time, Hour, Minute, SecNew, wTemp);
SecNew := SecNew + 60 * Minute + 3600 * Hour;
Application.ProcessMessages
until Abs(Integer(Sec - SecNew) ) >= nWait
end;

← →
KoluChi (2002-11-05 15:28) [7]

Немножко подправил, а то как-то некорректно, например, если Sec = 59.

← →
SaS13 (2002-11-05 15:33) [8]

KoluChi © (05.11.02 15:28)
не было необходимости Wait больше минуты делать :)))

← →
KoluChi (2002-11-05 15:54) [9]

Да тут дело не в минуте, просто если начальное время 12.01.59, то
sec = 59, secnew никогда не будет больше 59 - пауза навечно.

← →
Alex4444444444 (2002-11-05 15:56) [10]

Kak-to eto poganovato: delat" pustoj cycle v mnogopotochnoj srede. Dlya etogo i est" vsyakie Sleep, Timer, WaitForSingleObject, etc, chtoby programma, kotoroj ne nuzhen CPU, ego zrya ne zanimala.

← →
Incognito (2002-11-05 16:15) [11]

procedure Delay(ms : longint);
{$IFNDEF WIN32}
var
TheTime : LongInt;
{$ENDIF}
begin
{$IFDEF WIN32}
Sleep(ms);
{$ELSE}
TheTime := GetTickCount + ms;
while GetTickCount < TheTime do
Application.ProcessMessages;
{$ENDIF}
end;

← →
TTCustomDelphiMaster (2002-11-05 17:07) [12]

← →
PCpuzik (2002-11-05 17:38) [13]

Спасибо, Sleep хватило :-)

Пауза в программе Найти похожие ветки