Текущий архив: 2002.03.25;
Скачать: CL | DM;
Вниз
Временная задержка Найти похожие ветки
← →
asdf (2002-03-13 12:37) [0]Искал по форуму ответ на вопрос, как получить задержку в милисекундах и нашел следующий пример (sleep - не подходит):
t1:=Time;
while Time<t1+[сколько-то млсек] do;
но как там было сказано [сколько-то млсек] - это количество дней.
Подскажите, если вот так:
t1:=Time;
while Time<t1+(1/24/60/60/1000*200) do;
это и будет 200 млсек?
А как можно отобразить время с млсек
ShowMessage(TimeToStr(t1))
показывает только hh:mm:ss
Спасибо.
← →
SDS © (2002-03-13 12:48) [1]
procedure Delay(MSecs : DWORD);
var
FirstTick : DWORD;
begin
FirstTick := GetTickCount();
repeat
Application.ProcessMessages(); { для того чтобы не "завесить" Windows }
until GetTickCount-FirstTick>=MSecs;
end;
← →
SDS © (2002-03-13 12:52) [2]Для миллисекунд
procedure DecodeTime(Time: TDateTime; var Hour, Min, Sec, MSec: Word);
Description
DecodeTime breaks the object specified as the Time parameter into hours, minutes, seconds, and milliseconds.
← →
asdf (2002-03-13 13:06) [3]Большое спасибо
Страницы: 1 вся ветка
Текущий архив: 2002.03.25;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.014 c
