Затрата времени

[Lemo]

как получить затрату времени на выполнение некоторой фунции или процедуры?
Пример
Я хочю заполнить одномерный массив размером 100 ел, как узнать сколько оно займет времени?
ЗЫ:предпологаю, что где то в system есть функа типо GetTime...

[raxp]

gettickcount самое простое, засек, запустил, вычел.

[maxionans]

GetTickCount очень не точен, может давать погрешность до 20 мсек на один вызов. Для замера времени выполнения кода лучше использовать либо QueryPerformanceCounter вместе с QueryPerformaceFrequency, либо GetThreadTimes.

[spamer]

Вот работает:

procedure TForm1.Button1Click(Sender: TObject);
var
    i               : integer;
    x               : extended;
    c1, c2          : int64;
    freq            : int64;
begin
    x := random;

    QueryPerformanceCounter(c1);

    //Ваша функция//
    for i := 0 to 10000000 do x :=  sin(x)*sin(exp(abs(x)));
    //Конец//

    QueryPerformanceCounter(c2);

    QueryPerformanceFrequency(freq);
    if freq <> 0 then begin
        x := (c2 - c1) / freq;
        ShowMessage(format('%3.10f Sec', [x]));
    end;
end;

з.ы. кстати, заметил что это мой 800й пост...

[Lemo]

СПС за помощь!
ЗЫ всем хотел кинуть в репу, но получилось только 1=(