Hagen iss au en schöner Vorschlag, ich habs jetzt aber so:
Delphi-Quellcode:
type
TConvClass = (c1,c2,c3,c4,c5,c6,c7,c8);
TConvSet = set of TConvClass;
function TForm1.Test(const ASet):Integer;
var x : TConvClass;
begin
Result:=0;
for x in TConvSet(ASet) do
begin
if Ord(x) = 0 then
Result:=Result+1
else Result:=Result+Round(Power(Ord(x),2));
end;
end;
Hier kann ich jedes meiner Sets übergeben.
bei Set of Byte funktioniert das nicht, da scheint alles drin zu sein und ich bekomm anstatt 15 irgendwas wie 20937223 oder so.. also nicht geeignet. Aber jetzt gehts ja.