Inc 与 k:=k+1 性能比较

Delphi在使用过程中经常遇到一些简单的加法计算，增加函数Inc递减函数Dec分别与直接计算如k:=k+1,k:=k-1有什么区别呢？

做如下测试：

procedure TForm1.Button1Click(Sender: TObject);
var
  i,k:Integer;
  oldTime,newTime:Int64;
begin
   //
   oldTime:=GetTickCount;
   k:=0;
   for i:=0 to 10000 do
   begin
     k := k + 1;
     Sleep(1);
   end;
   newTime:=GetTickCount;

   ShowMessage('Inc 耗时' + IntToStr(newTime - oldTime) + 'ms k='+IntToStr(k));

   oldTime:=GetTickCount;
   k:=0;
   for i:=0 to 10000 do
   begin
     Inc(k);
     Sleep(1);
   end;
   newTime:=GetTickCount;

   ShowMessage('Inc 耗时' + IntToStr(newTime - oldTime) + 'ms k='+IntToStr(k));
end;

执行结果如下：

 

 

计算10000次，平均三次结果，没有明显优势，前后交换顺序结果一致。

在网上查找原因大概如下解释：

Inc直接进行的是与运算，而k:=k+1需要经过一层转换之后才进行此计算。

 

Dec计算结果却是如此

   oldTime:=GetTickCount;
   k:=0;
   for i:=0 to 10000 do
   begin
     k := k - 1;
     Sleep(1);
   end;
   newTime:=GetTickCount;

   ShowMessage('Calculate 耗时' + IntToStr(newTime - oldTime) + 'ms k='+IntToStr(k));

   oldTime:=GetTickCount;
   k:=0;
   for i:=0 to 10000 do
   begin
     Dec(k);
     Sleep(1);
   end;
   newTime:=GetTickCount;

   ShowMessage('Dec 耗时' + IntToStr(newTime - oldTime) + 'ms k='+IntToStr(k));

 

交换先后计算顺序之后：

从大数减下来，即不用负数计算：

综上所述：

使用函数与使用加减法在测试范围内没有明显优势，使用时无需太在意是使用方法。

个人建议：在考虑美观与显得高大尚方面建议采用函数，在易于阅读方面建议采取加减法。