Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.25;
Скачать: [xml.tar.bz2];




Вниз

Временная задержка 


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]

Большое спасибо




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.25;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.015 c
14-80693          nick_vstu             2002-02-11 03:24  2002.03.25  
Что такое сабж?


1-80493           A.H.                  2002-03-12 19:26  2002.03.25  
TImage - почему у меня ничего не получается :-(( ??


3-80415           alexbl                2002-02-26 16:18  2002.03.25  
DBText и GroupBox


1-80621           dimonf                2002-03-11 21:07  2002.03.25  
Господа, подскажите, как можно добавлять строки в StringGrid в цикле не зная заранее, сколько у меня, будет записей?


3-80448           KLM                   2002-02-27 14:45  2002.03.25  
Кто работал с Raima Data Manager?