Используйте переменную типа TDateTime.
procedure
TForm1.XXXXXXXClick(Sender: TObject);
var StartTime, EndTime,
ElapsedTime :TDateTime;
begin
StartTime := Now;
{Здесь поместите свой код}
EndTime := Now;
ElapsedTime := EndTime - StartTime;
Label1.Caption :=
TimeToStr(ElapsedTime);end;
{теперь все
это в памяти, но в нашем случае это хорошее место. }
var
before,
after,
elapsed : TDateTime;
Ehour, Emin, Esec, Emsec : WORD;...
before :=
now;
some_process();
after := now;
elapsed := after -
before;
decodetime(elapsed, Ehour, Emin, Esec, Emsec);
|
