Время выполнения программы

[Zhamie]

Всем привет!!!

Помогите пожалуйста зафиксировать время начала и конца вполнения программы. У меня сложные вычисления и мне нужно знать сколько это занимает.

[Zhamie]

Я думаю вот так будет правильно:

var 
today : TDateTime;

begin
today := Time;
Memo2.Lines.Add('Время начала = '+TimeToStr(today));
.....
.....
.....
Memo2.Lines.Add('Время конца = '+TimeToStr(today));
end.

Как вы думаете???

[Пепел Феникса]

на будущее, тут и Дельфи/Паскаль и С/С++ и прочие(Java,PHP,...) встречаются...

можно чтото типа такого(глобалка)

var TimeStart:LongWord;

в начале проги

TimeStart:=GetTickCount;

в конце

<время в миллисикундах...куда выводить решайте сами>:=GetTickCount-TimeStart;
например ShowMessage(IntToStr(GetTickCount-TimeStart));

Я думаю вот так будет правильно:

тоже можно, но не использую такой метод
+исправте его всетаки

[mMAg]

Варианта 2:
1. Повесить на форму таймер System->Timer и пользоваться его функциями.
2. Написать свой класс и создать переменную вашего класса
Что-то типа вот такого:

type
  TTimer = Class(TObject)
    t0: DWord;
  public
    procedure SetTimer;
    function GetDelay: Cardinal;
  end;

реализация методов вот такая:

function TTimer.GetDelay: Cardinal;
begin
  GetDelay:= GetTickCount-t0;
end;

procedure TTimer.SetTimer;
begin
  t0:=GetTickCount;
end;

P.S. ЫЫЫ, пока писал еще 2 поста появилось, и это за 10 минут

[Пепел Феникса]

mMAg, зачем все усложнять?

Варианта 2:

их значительно больше

1. Повесить на форму таймер System->Timer и пользоваться его функциями.

точность низкая, могут быть траблы.

2 вариант

мне более менее, но ТС заморачиватся с ним это лишнее(конструктор то и прочее)

PS:в моем как и втором варианте от mMAg миллисекунды идут

[Zhamie]

Спасибо большое!!! Обязательно воспользуюсь.

[JTG]

Unix-way

JTG@work /cygdrive/d/temp
$ time ./test.exe

real 0m2.135s
user 0m0.046s
sys 0m0.000s

[mMAg]

их значительно больше

Я не сомневаюсь, что их значительно больше. Я имел ввиду, что я приведу 2 варианта. Может немного неправильно выразился.

мне более менее, но ТС заморачиватся с ним это лишнее(конструктор то и прочее)

Ваш вариант для решения поставленной задачи лучше, это факт. Этот класс кастрированный получился, ибо все полезное, что в нем было я обрезал для того, чтобы не загромождать тут лишнего. В итоге осталась только одна функция GetTickCount. Действительно для таких нужд класс создавать нецелесообразно.

[Impuls1989]

Пользовался таким кодом.

Var
T1,T2,Fr:Int64;
Code_time:Double;

function RDTSC: Int64; register; //Получение количество тактов процессора, со времени его включения
 asm
   rdtsc
 end;

begin
//Узнаем частоту
T1:=RDTSC;
sleep(1000);
T2:=RDTSC;
Fr:=T2-T1;

T1:=RDTSC;
//Тут выполняем код, время исполнения которого нужно узнать
//
Sleep(10);
T2:=RDTSC;
Code_Time:=(T2-T1)/Fr*1000;
ShowMessage('код выполнялся '+FloatToStr(Code_Time)+' мс');

end;