Integer(myset);
ergibt aber ne fehlerhafte Typenumwandlung
die Schleife hab ich jetz folgendermaßen überarbeitet:
Delphi-Quellcode:
function GetZahl(ASet : TMyTypes):Integer;
var mytest : TMyTyp;
begin
Result:=0;
for mytest in ASet do
if Ord(mytest) = 0 then
Result:=Result+1
else Result:=Result+Round(Power(Ord(mytest),2));
end;
aber das mit dem Laden... das will irgendwie nicht...