verschiedene Sets an Prozedur übergeben

[negaH]

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