Delphi的整数性能测试

本文整理自网络，侵删。

 
//需要用到的库 http://delphitop.com/html/xiancheng/5562.html
function Test2: integer;
var
  s: integer;
begin
  s := 0;
  TParallel.&For(1, MAXN, procedure(i: integer)
    begin
      if (IsPrime(i) = 1) then
      begin // memory barrier
        AtomicIncrement(s);
      end
    end);
  Result := s;
end;


function Test3: integer;
var
  s: integer;
begin
  s := 0;
  TParallel.&For(1, MAXN, procedure(i: integer)
    begin // memory barrier
      AtomicIncrement(s, IsPrime(i));
    end);
  Result := s;
end;
 

相关阅读 >>

Delphi 密码框写完后按enter直接登录

Delphi tfinddialog treplacedialog对话框在memo中的使用

Delphi strtoint 将“字符型”转换成“整数型”

理解Delphi中sender用法

Delphi edit只允许输入数字

Delphi 用正则表达式检查一个串是否是电信的手机号

Delphi使用tnethttpclient：重定向后如何给出最终的url？

Delphi sccoloredid，星际争霸彩色 id 修改器 v0.2.0，支持 windows vista

Delphi idhttp post json

Delphi的cpu调试窗口

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi的整数性能测试