[Back to TIMING SWAG index]  [Back to Main SWAG index]  [Original]

{
> Does anyone know of a proFiler For TP 6, or is there a special
> command using TPC to activate a proFiler to tell how much time the
> Program takes doing a task. Thanks, Luke

Try this Unit.  Put a ClockOn and it will start timing then when the ClockOff
is reached it will tell you how long it took.  It's very nice For optimizing
pieces of code.
}

Unit Timer;

Interface

Procedure ClockOn;
Procedure ClockOff;

Implementation
Uses Dos;

Var
  H, M, S, S100 : Word;
  Startclock, Stopclock : Real;

Procedure ClockOn;
 begin
   GetTime(H, M, S, S100);
   StartClock := (H * 3600) + (M * 60) + S + (S100 / 100);
end;

Procedure ClockOff;
 begin
  GetTime(H, M, S, S100);
  StopClock := (H * 3600) + (M * 60) + S + (S100 / 100);
  WriteLn('Elapsed time = ', (StopClock - StartClock):0:2);
 end;

end.

[Back to TIMING SWAG index]  [Back to Main SWAG index]  [Original]