verschiedene Sets an Prozedur übergeben

[Angel4585]

Zitat von 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

Sagen wir ich bin relativer bis absoluter Programmier-Anfänger und bin eninfach nicht drauf gekommen
Allerdings hast du en kleinen fehler, bei TConvSet bringt er den Fehler ungülter Typ, wenn ich Byte nehm gehts wieder.

Also ich hab jetzt die folgenden beiden Funktionen:

Delphi-Quellcode:

function SetToInt(const ASet):Integer;
begin
Result:=Ord(Byte(ASet));
end;

Und zum zurückwandeln in ein Set:

function IntToSet(AInt : Integer):TConvSet;
var
  x : Integer;
  LInt : Integer;
begin
Result:=[];
LInt := AInt;
for x := 32 downto 0 do
  if LInt > 0 then
    begin
    if Round(Power(2,x)) <= LInt then
      begin
      LInt:=LInt-Round(Power(2,x));
      Result:=Result + [TConvClass(x)];
      end
    else if (LInt = 1) then
      begin
      LInt:=LInt-1;
      Result:=Result + [TConvClass(0)];
      exit;
      end;
    end;
end;


aufgerufen wird das ganze so:

procedure Test;
var
  testset : TMySet;
  setint : Integer;
begin
testset:=TMySet(IntToSet(5));
setint:=SetToint(testset);
end;

geht die IntToSet Funktion auch einfacher oder ist das OK?