#记录我的9月生活#昨天看一篇LAZARUS 与 DELPHI比较的博文，博主为了简单点，把FREE PASCAL/LAZARUS统称为FPC。
粉丝们请看截图，大致描述的意思是，快速排序算法，FPC比DELPHI 7要慢30%。
浮点数计算，FPC也是比DELPHI 7慢30%左右。
科学计算时，FPC慢很多了，将近慢1.5倍。
这篇测试的博文，发表的时间是2009年，博主没有介绍LAZARUS的版本。
现在也无从查找那个时候的版本，只能估计，那时的版本比较低吧。
难道LAZARUS编译的执行文件运行真的比Delphi7差吗？笔者出于好奇，也是对LAZARUS和Delphi7的喜爱，一时兴起，今天也做了下类似的测试。
测试的软件版本Lazarus v3.4 和 Delphi7。
浮点运算主要代码如下：uses SysUtils , DateUtils, Math;var dt_start,dt_end:TDatetime; tt:Double; count:Int64; sum: Double;begin { TODO -oUser -cConsole Main : Insert code here } WriteLn('Float Delphi v7.0'); count:=100000000; sum:=2; dt_start:=Now(); while count<>0 do begin Dec(count); sum := sqrt(sum+3.1415926 * 0.056) ; end; dt_end:=Now(); tt := SecondSpan(dt_end, dt_start); WriteLn(Format('time = %.9f',[tt]));end.Lazarus v3.4 浮点测试程序截图LAZARUS和Delphi7的都是以上的代码，但是展示出来的是Delphi7里的代码。
执行浮点预算，sum := sqrt(sum+3.1415926 * 0.056) ; 执行100000000，即循环一亿次。
花费的时间如下：从截图可以看出，LAZARUS花费时间1.19秒，delphi7花费时间1.23秒，LAZARUS稍微领先，可以说两者基本持平。
科学计算主要代码如下：uses SysUtils, DateUtils, Math;var dt_start,dt_end:TDateTime; tt:Double; count:Int64; sum:Double;begin WriteLn('科学计算Lazarus v3.4'); count:=100000000; sum:=2; dt_start:=Now(); while count<>0 do begin Dec(count); sum := power(sum,random * 1.5)+sin(100 * 3.14/180)+cos(100 * 3.14 /180)+log10(sum * 100); end; dt_end:=Now(); tt := SecondSpan(dt_end, dt_start); WriteLn(Format('time = %.9f',[tt])); Delphi7 科学计算程序截图Lazarus v3.4 科学计算程序截图执行sum := power(sum,random * 1.5)+sin(100 * 3.14/180)+cos(100 * 3.14 /180)+log10(sum * 100); 并且运行100000000,循环一亿次。
从截图可以看出，LAZARUS花费时间18.04秒，delphi7花费时间23.95秒，LAZARUS领先5.91秒，优势还是比较明显的。
小结通过以上实验，可以得出：目前LAZARUS已经发展到v3.4版本，编译器本身已经进化不少。
浮点预算从原来比DELPHI 7慢30%左右，现在还稍微领先一点点。
科学计算从原来的将近慢Delphi 1.5倍，到现在领先优势还不少。
LAZARUS对于RTL库的优化必然花了不少时间和精力，才能达到如今超越的效果。
LAZARUS v3.4编译的执行文件运行速度真的比Delphi7不是差，而是又好又快，特别是科学计算领先的优势还是很明显的。