Durch Enum-Set iterieren?

[perpeto1234]

Delphi-Quellcode:

TMyEnum = (ONE, TWO, THREE);
TMyEnums = set of TMyEnum;

procedure DoIterate(AEnums: TMyEnums);
var
  my: TMyEnum;
begin
  for my in AEnums do
  begin
    // do smt. with "my"
  end;
end;

...

DoIterate([ONE, TWO]);