TStopwatch组件在Delphi中具有以下属性和方法:
属性:
Elapsed: TTimeSpan - 返回已执行代码的时间,以秒为单位,具有微秒精度。
ElapsedMilliseconds: Double - 返回已执行代码的总毫秒数。
IsRunning: Boolean - 获取或设置一个值,表示Stopwatch是否正在运行。
方法:
Start: 无 - 开始计时。
Stop: 无 - 停止计时。
Reset: 无 - 重置Stopwatch,将Elapsed属性设置为0。
示例用法:
uses
..., Windows;
type
TForm1 = class(TForm)
..., Stopwatch1: TStopwatch;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
end;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Stopwatch1.Start;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
Stopwatch1.Stop;
ShowMessage('Execution time: ' + FormatFloat('#,0.000', Stopwatch1.ElapsedMilliseconds));
end;
end.
在这个例子中,我们在窗体创建时开始计时,销毁时停止计时,并输出总执行时间(毫秒)。
————————————————