Set durchsuchen

[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;