Set durchsuchen

[xZise]

Hallo ihr,

ich habe ein Set einer Enumeration

Delphi-Quellcode:

type
  TEnum = (eA, eB, eC);
  TEnums = set of TEnum;

Nun habe ich eine Methode, die je nach Enum-Wert verschieden reagiert und eine Methode mit dem Set:

Delphi-Quellcode:

procedure DoSomething(AEnum : TEnum);
procedure DoSomethingOther(AEnums : TEnums);

Wie kann ich nun in "DoSomethingOther" die Einträge in AEnums durchgehen und mit DoSomething aufrufen?

Also sowas in der der Art:

Delphi-Quellcode:

for i := 0 to Length(AEnums) - 1 do
  DoSomething(AEnum[i]);

Ich könnte natürlich das umständlich machen, aber dass ist an sich ja ziemlich umständlich ;)

Delphi-Quellcode:

if eA in AEnums then
  DoSomething(eA);

...

MfG
xZise

[Muetze1]

Delphi-Quellcode:

type
  TEnum = (eA, eB, eC);
  TEnums = set of TEnum;

procedure DoIt(const ASet: TEnums);
var
  lIndex: TEnum;
begin
  for lIndex := low(TEnum) to high(TEnum) do
  begin
    if lIndex in ASet then
      DoSomething(lIndex);
  end;
end;

[xZise]

Danke,
damit funktioniert es.

MfG
xZise

[Hawkeye219]

Hallo,

ich hätte noch eine Ergänzung:

Delphi-Quellcode:

procedure DoItAgain(const ASet: TEnums);
var
  lIndex: TEnum;
begin
  for lIndex in ASet do
    DoSomething(lIndex);
end;

Gruß Hawkeye