注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

鑫淼梦园的博客

圆你的梦想 从这里开始

 
 
 

日志

 
 

Delphi xe7下增加了TStopwatch类用于精确时间  

2015-02-28 15:18:13|  分类: 默认分类 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, System.Diagnostics, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  NewTime: TStopwatch;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  ft: String;
  I, B: Integer;
  vv, tt: Int64;
begin
  NewTime.Start;
  vv := 1;
  for I := 0 to 100000 do
  for b := I + 1 to 100000 do
  begin
    Inc(vv);
  end;
  NewTime.Stop;
  //tt := NewTime.Elapsed.TicksPerSecond;
  tt := NewTime.Elapsed.Ticks div NewTime.Elapsed.TicksPerSecond;
  ft := Format('相加结果=%d,用时:%d秒', [vv, tt]);
  Label1.Caption := ft;
end;
  评论这张
 
阅读(941)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017