Форум: "Основная";
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];
ВнизПро точные интервалы времени..................... Найти похожие ветки
← →
Kettle of delphi (2002-03-14 03:24) [0]Здравствуйте.
Такой вопрос: Хоть примерно, сколько времени занимает вот эта команда: Label1.Caption := "!"; ?
Cколько примерно времени занимает вычисление синуса?
И почему в следующем коде:
procedure TForm1.Button4Click(Sender: TObject);
var PriorityClass, Priority: Integer;
begin
PriorityClass := GetPriorityClass(GetCurrentProcess);
Priority := GetThreadPriority(GetCurrentThread);
SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS);
SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_TIME_CRITICAL);
QueryPerformanceCounter(Preceding64);
QueryPerformanceCounter(Current64);
SetThreadPriority(GetCurrentThread, Priority);
SetPriorityClass(GetCurrentProcess, PriorityClass);
Label5.Caption := FloatToStr(Preceding64);
Label8.Caption := FloatToStr(Current64);
Label11.Caption := FloatToStr(Current64 - Preceding64);
end;
(Current64 - Preceding64) дает 6 тактов счетчика, что есть, примерно, 5 микросекунд! - ?
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c