delphi 计时方法 TStopwatch

1，

GetTickCount

2，

TStopwatch 

procedure TForm5.Button5Click(Sender: TObject);
var
sw: TStopwatch;
i, j: Integer;
begin
j := 0;
sw := TStopwatch.StartNew;
for i := 0 to 100000000 do
begin
j := sumX(i, j); //普通函数
end;
sw.Stop;
ShowMessage('first do expand time =' + IntToStr(sw.ElapsedMilliseconds) + ' '); //602

j := 0;
sw := TStopwatch.StartNew;
for i := 0 to 100000000 do
begin
j := sumY(i, j); //inline函数
end;
sw.Stop;
ShowMessage('second do expand time =' + IntToStr(sw.ElapsedMilliseconds) + ' '); //595

end;