время программы

[fluer]

подскажите пожалуйста как в делфи зделать так, чтобы считалось время работы цыкла (поиск) результат этого счёта времени выводился бы вмесе с результатом поиска на экран.

[BOBAH13]

VAR
K:cardinal;
begin
k:=windows.gettickcount;
а теперь сравнивай
windows.gettickcount - k = твое время после того как засек т.е. присвоил значение K. вроде так делается ) я просто тут сразу пишу не проверяю но функция windows.gettickcount точно такая

[fluer]

так... псибо. а вообще можно не сравнивать резльтат данной функции а просто выводить? т.е. я должен перд циком запстить этот каунт, а после цикла выключиь (тока как он выключается вопрос)

[mihali4]

procedure TForm1.Cycle;
var t: TTime;
begin
t:=Now;
//начало цикла - момент начала отсчета
...
...
//конец цикла - окончание отсчета
Label1.Caption:=FormatDateTime('hh: mm:ss',t-Now);
end;

[fluer]

Сообщение от BOBAH13

VAR
K:cardinal;
begin
k:=windows.gettickcount;
а теперь сравнивай
windows.gettickcount - k = твое время после того как засек т.е. присвоил значение K. вроде так делается ) я просто тут сразу пишу не проверяю но функция windows.gettickcount точно такая

скажи пожалуйста а как пользоваться кардиналами или скажи в чём т.е. в каких величинах виндоустиккаунтер выдаёт числа. а то очень уж они страные, а остальные предложенные варианты не сработали.

[BOBAH13]

Смотрите пример в архиве

[mihali4]

остальные предложенные варианты не сработали

Это мой вариант не сработал???
Тогда вам надо срочно идти и руки правильно затачивать...

[BOBAH13]

Наверника идея была основана нам том чтобы получить время во время цикла, по этому mihali4 Ваш способ не подойдет, хотя возможно

[mihali4]

чтобы получить время во время цикла

Переведите...
Мое предложение - это "обрамление" цикла. Сам цикл - там, где точки... Чего там непонятного?