TStopwatch属性及方法

TStopwatch组件在Delphi中具有以下属性和方法：

属性：

1. Elapsed: TTimeSpan - 返回已执行代码的时间，以秒为单位，具有微秒精度。
2. ElapsedMilliseconds: Double - 返回已执行代码的总毫秒数。
3. IsRunning: Boolean - 获取或设置一个值，表示Stopwatch是否正在运行。

方法：

1. Start: 无 - 开始计时。
2. Stop: 无 - 停止计时。
3. 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.

在这个例子中，我们在窗体创建时开始计时，销毁时停止计时，并输出总执行时间（毫秒）。