Delphi-Quellcode:
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;
Also diesen Code könntest du mir mal erklären, also nicht was er macht sondern warum du es so machst ?
Delphi-Quellcode:
function TForm1.Test(const ASet):Integer;
begin
Result := Ord(TConvSet(ASet));
end;
sollte nämlich exakt das Gleiche machen.
Gruß Hagen