请高手帮忙用Delphi翻译以下代码!谢谢! 以下是JavaScript,请帮忙用Delphi翻译!var i, sum = 0;for(i=0x8000; i>0x8; i>>=1) sum += (0x4ae0 & i)? 1: 0;return sum; 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 function AFun: Integer;var i, sum : Integer;begin sum := 0; i := $8000; while i > $8 do begin if i and $4AE0 <> 0 then sum := sum + 1; i := i shr 1; end; Result := sum;end; DELPHI圣地(19234671),老群招人。限10个。 Pchar操作问题 基础问题-----对象与接口 一个关于StringGrid的问题,希望大家能多多帮助,谢谢哦!! 如何在动态库中获取调用他的可执行文件的路径 关于文件传输的问题~~~ 问一句sql,在线等哦 有谁知道春节放假怎么串休?快要定火车票了 请各位朋友来帮忙,多谢了!!!来参与讨论吧.!! 请为安装一个第三方控件后程序总是提示一个错误信息?这是为什么? xpmenu3.0,fastreport2.50,ehlib3.0三个控件那里有的下啊? 求救!!这个SQL语句应该怎么写??
var
i, sum : Integer;
begin
sum := 0;
i := $8000;
while i > $8 do
begin
if i and $4AE0 <> 0 then sum := sum + 1;
i := i shr 1;
end;
Result := sum;
end;