Variable für const array

[BerndS]

Ja, da hätte ich es doch besser vorher testen sollen, was ich nachträglich noch gemacht habe.
Allerdings hätte ich es wahrscheinlich den Beispielprojekt nicht mit einem Array sondern per Set gemacht.

Delphi-Quellcode:

type
  TEnum = (eEins, eZwei, eDrei, eVier, eFünf, eSechs, eSieben, eAcht, eNeun, eZehn);
  TEnumSet = set of TEnum;

const
  Enum1 = [eEins, eDrei, eSechs, eSieben, eZehn];
  Enum2 = [eZwei, eVier, eFünf, eSechs, eAcht, eNeun, eZehn];

function IstDrin(VarE:TEnum;const AEnum: TEnumSet):Boolean;
var VEnum:TEnum;
begin
  Result := False;
  For VEnum in AEnum do
    If VEnum = VarE
      then exit(True);
end;

procedure MachWas(AEnumNr:integer);
var
AEnum: TEnumSet;
begin
  case AEnumNr of
    1 : AEnum := Enum1;
    2 : AEnum := Enum2;
    else
      Exit;
  end;
  If IstDrin(eDrei,AEnum)
    then ;
end;