Forum: Object-Pascal / Delphi-Language
Delphi
by BlackJack,
10. Mai 2006
sicher dass das so geht? einmal weist du Result einen Integer zu (-1), und einmal einen TAufzaehlungsTyp (i). :gruebel:
@AmateurProfi: Sorry, aber wenn hier eine Lösung nicht allgemeingültig ist, dann deine ;)
Forum: Object-Pascal / Delphi-Language
Delphi
by BlackJack,
9. Mai 2006
irgendwie vermisse ich hier die (mMn) einfachste lösung. naja dann poste ich sie halt mal :D
type TAufzaehlungsTyp = (a, b, c, d); //oder was auch immer
TAufzaehlungsMenge = set of TAufzaehlungsTyp;
function ElementCount(ASet: TAufzaehlungsMenge): Integer;
var i: TAufzaehlungsTyp;
begin
Result := 0;
for i := Low(TAufzaehlungsTyp) to High(TAufzaehlungsTyp) do
if i in...