засеч время работы алгоритма

[V_F]

ребят, выручайте, не получается посчитать время, таймер показывает либо 31 либо ноль, а нужно чтобы количество тиков было не меньше 100

const
N = 50000;
var
 mass      : array [1..N+1] of integer ;
 i         : longint ;
 k         : longint ;
 buf , j   : longint ;
 time_neop : longint ;
 time_op   : longint ;
begin
 begin
   Randomize;
  For i:= 1 To N Do mass[i]:= Random(1000);
   k:= StrToInt(edit1.text);
 end;
 //неоптимальный поиск
 i:= 1;
 time_neop:= GetTickCount ;
for j := 1 to 10000000 do
 repeat
    if mass[i] = k then break ;
   i:= i + 1;
  until
    i = N ;
  begin
   if i = N  then
    Label8.caption:= ('Элемент не найден' +#13 +#10 + 'колличество тиков:' + ' ' +IntToStr(GetTickCount - time_neop))
    else
    Label8.Caption:= ( 'Элемент найден' +#13 +#10 + 'колличество тиков:' + ' ' +IntToStr(GetTickCount - time_neop) +#13 +#10 + 'индекс элемента:' + ' ' + IntToStr(i) );
  end;

[_-Re@l-_]

time_neop:= GetTickCount ;

А сами пишете таймер.
А чтобы проще считать время, киньте на форму таймер из вкладки System и в событии OnTimer напишите

Inc(T);

Где T - переменная Integer.
Свойство таймера Interval поставьте 1(это одна миллисекунда)

[ybn]

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

ребят, выручайте, не получается посчитать время,

На Delphi все гораздо проще.
1. Засекаешь текущее время:
2. запускаешь алгоритм;
3. Засекаешь текущее время (по окончанию работы алгоритма);
4. Ищешь разницу.
Вот как это делается:

Var
  t1,t2:TDateTime;
  H,M,Sec,MS:Word;
begin
  T1:=time;
..............
// Здесь твой алгоритм
.............
  t2:=time;
  Decodetime (t2-t1,H,M,Sec,Ms);
   Label1.Caption:=IntToStr(H)+':'+IntToStr(M)+':'+IntToStr(sec)+'.'+IntToStr(MS),clred;

end;

[V_F]

_-Re@l-_
я так понял таймер будет считать время работы всей программы, а у меня кроме этого алгоритма ещё 4 , и для каждого алгоритма нужно посчитать время

ybn
работает для другого алгоритма, для этого нули пишет(
может в самом алгоритме ошибки

//неоптимальный поиск
i:= 0;
//time_neop:= GetTickCount ;
t1:=time;
for j := 1 to 100000 do
begin
repeat
if mass[i] = k then break;
i:= i + 1;
until
i = N ;
end;
T2:=time;
Decodetime (t2-t1,H,M,Sec,Ms);
begin
if i = N then
Label8.caption:= ('Элемент не найден' +#13 +#10 + 'колличество тиков:' + ' ' +IntToStr(H)+':'+IntToStr(M)+':'+In tToStr(sec)+'.'+IntToStr(MS))
else
Label8.Caption:= ( 'Элемент найден' +#13 +#10 + 'колличество тиков:' + ' ' +IntToStr(H)+':'+IntToStr(M)+':'+In tToStr(sec)+'.'+IntToStr(MS) +#13 +#10 + 'индекс элемента:' + ' ' + IntToStr(i) );
end;

[V_F]

всем спасибо, разобрался
я индекс перед зациклением обнулил, поэтому и неполучалось)
ещё раз спасибо)

[_-Re@l-_]

я так понял таймер будет считать время работы всей программы,

У таймера есть свойство enabled, используй его. Видать, у тебя Делфи на том же уровне, что у меня brainfuck. Не в обиду сказано.

[V_F]

ну да, начинаю только)
спасибо за помощь)

[casekey]

uses SysUtils;
var
  t: TDateTime;
  i: Integer;
begin
  t := Now(); // запомнить время
  for i := 1 to 10000 do
  begin
    // Выполняем операцию, у которой хотим засечь время выполнения
  end;
  t := Now() - t;
  Writeln(FormatDateTime('ss:z',t));
end;

это для консольки в делфи, для интерфейсной вывести результат в лейбл какой нибудь можно