home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 19
/
CD_ASCQ_19_010295.iso
/
dos
/
prg
/
pas
/
swag
/
timing.swg
/
0004_TIMELOOP.PAS.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-05-28
|
478b
|
31 lines
{$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.
}