home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / timer / tptimer / ttdemo.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1988-08-15  |  496 b   |  21 lines
  1. program TpTimerDemo;
  2.   {-Simple demonstration program for TPTIMER unit}
  3. uses
  4.   TpTimer, Crt;
  5. var
  6.   DelayCount : Word;
  7.   Start, Stop : LongInt;
  8. begin
  9.   repeat
  10.     WriteLn;
  11.     Write('Enter time to delay (in ms), or 0 to quit: ');
  12.     ReadLn(DelayCount);
  13.     if DelayCount > 0 then begin
  14.       Start := ReadTimer;
  15.       Delay(DelayCount);
  16.       Stop := ReadTimer;
  17.       WriteLn('Elapsed time (in ms): ', ElapsedTimeString(Start, Stop));
  18.     end;
  19.   until (DelayCount = 0);
  20. end.
  21.