[示例] 使用 TStopwatch 计时

<span style="color: #0000ff">var<span style="color: #000000"> t1: TStopwatch;
<span style="color: #0000ff">begin<span style="color: #000000">
t1 :=<span style="color: #000000"> TStopwatch.StartNew;
<span style="color: #008000">//<span style="color: #008000"> do something
<span style="color: #000000"> t1.Stop;

Memo1.Lines.Add(Format(<span style="color: #800000">'<span style="color: #800000">%d (msec)<span style="color: #800000">'<span style="color: #000000">,[t1.ElapsedMilliseconds]));
Memo1.Lines.Add(t1.Elapsed);
<span style="color: #0000ff">end;