关于布尔型的小问题.(50分)

silverwolf · 2002-05-06

dephi中没有隐式转换boolean为int型，如果我要写一个多个boolean变量相加，
怎样写效率较高？（例如 a,b,c,d为三个布尔型量，a,b,d为真，c为假，
a+b+c+d=1+1+0+1=3)

wukw · 2002-05-06

不好意思，已经不会Delphi了，只好用C写了。

天真 · 2002-05-06

看看这个

天真 · 2002-05-06

var a:boolean;
i:integer;
begin
i:=1;
a:=true;
i:=i+ord(a);
showmessage(inttostr(i));

wukw · 2002-05-06

是执行效率，还是写代码的效率？
如果是后者：
int function add(boolean b)
{
if (b)
return 1;
else

return 0;
}
int xx=add(a)+add(b)+add(c);
不算很麻烦吧！
其他方法，我再想想。

silverwolf · 2002-05-06

是指执行的效率，天真的方法不错。还有没有更好的。

liujunzhang · 2002-05-06

var
a,b,c:boolean;
begin
a:=true;
b:=false;
c:=true;
label1.caption:=inttostr(0+ord(a)+ord(b)+ord(c));
end;

Pipi. · 2002-05-06

还是
integer(a)+integer(b)+integer(c)+integer(d)
吧

silverwolf · 2002-05-06

感觉pipi的好像转换速度会快些（机内表示的话）

wukw · 2002-05-06

Pipi.就是比较厉害！