Zitat von
BlackJack:
sicher dass das so geht? einmal weist du Result einen Integer zu (-1), und einmal einen TAufzaehlungsTyp (i).
Blöde Frage
... Natürlich geht das nicht. Ich äh...
wollte äh... nur Deine Aufmerksamkeit testen.
Delphi-Quellcode:
function OrdMinElement(ASet: TAufzaehlungsMenge): Integer; // Liefert die Ordnungszahl
var
i: TAufzaehlungsTyp;
begin
Result := -1; // Falls die Menge leer ist
for i := Low(TAufzaehlungsTyp) to High(TAufzaehlungsTyp) do
if i in ASet then Begin
Result := Ord (i); // <--- Hier wars
Exit;
end;
end;