delphi TStopwatch 计时-木庄网络博客

本文整理自网络，侵删。

 program Project4;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,System.Diagnostics;

  var
  I, Tot: Integer;
  SW: TStopwatch;//秒表，计算耗用时间


begin
  try

  Tot := 0;
  SW := TStopwatch.Create;
  SW.Start;
  for I := 1 to 1000 do
  begin
   Inc(Tot);
   Writeln(tot);
  end;

  SW.Stop;

Writeln(Format('Sequential For loop. Time (in milliseconds): %d - Primes found: %d',[SW.ElapsedMilliseconds, Tot]));
readln;
    { TODO -oUser -cConsole Main : Insert code here }
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

delphi TStopwatch 计时

相关推荐

评论