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 过滤字符串特殊符号的函数

Delphi 安卓获得设备 id

Delphi利用线程注入技术实现刷新流量

Delphi 流分割与合并文件的函数

Delphi 跨平台打开网址链接

Delphi滚动标题栏文字

Delphi 汉字与区位码

Delphi 全盘搜索指定文件

Delphi环境下基于spcomm控件开发串口通讯报文字节丢失的问题解决

Delphi中对excel表格文件的导入和导出操作

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi TStopwatch 计时