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

{$A+,B-,D-,E-,F-,I-,N-,O-,R-,S-,V-}

Program TimeNullRoutine;

Uses
  TpTimer;

Var
  Count : Byte;

Procedure DoNothing;
begin
end;

Var
  Loop : Word;
  Start,
  Stop : LongInt;

begin
  Start := ReadTimer;
  For Loop := 1 to 1000 do
    DoNothing;
  Stop := ReadTimer;
  WriteLn('Time = ', ElapsedTimeString(Start, Stop), ' ms')
end.

{
  ...Well running the Program listed above, 1000 nul loops time
  in at 3.007 miliseconds on my 386SX-25.
}

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