Man kann auch den Ordinalwert eines Boolean bilden und um im Beispiel zu bleiben...
Delphi-Quellcode:
function AddBooleanValues(Values: array of boolean): integer;
var
i: integer;
begin
result := 0;
for i := 0 to high(Values) do
result:=result + ord(Values[i]);
end;