simplechrono.lpr 601 B

1234567891011121314151617181920212223242526272829303132
  1. program simplechrono;
  2. uses
  3. SysUtils,
  4. DateUtils,
  5. Quick.Commons,
  6. Quick.Console,
  7. Quick.Chrono;
  8. var
  9. crono : TChronometer;
  10. starttime : TDateTime;
  11. ms : Int64;
  12. begin
  13. try
  14. Console.LogVerbose := LOG_ALL;
  15. cout('Chrono Test',etInfo);
  16. crono := TChronometer.Create;
  17. crono.Start;
  18. starttime := Now();
  19. repeat
  20. ms := MillisecondsBetween(Now(),StartTime);
  21. until ms >= 4000;
  22. crono.Stop;
  23. cout('crono stopped!',etInfo);
  24. cout('Loop: %d Elapsed: %s',[ms,crono.ElapsedTime],etInfo);
  25. Readln;
  26. except
  27. on e : Exception do WriteLn(e.message);
  28. end;
  29. end.