|
Registriert seit: 31. Mai 2012
Ort: Berlin
23 Beiträge
|
AW: Elegante Lösung gesucht, 3 Boolean-Werte, nur einer darf gesetzt sein
23. Feb 2016, 13:08
oder sowas
function CountTrues (ABoolean :array of Boolean):Integer
for i ...
result := result + ((-1)*strtoint(booltostr(ABoolean [i])))
Geändert von EricMeyer (24. Feb 2016 um 07:30 Uhr)
|