Variable für const array

[Uwe Raabe]

Zumindest in Berlin/Tokyo kannst du es so machen:

Delphi-Quellcode:

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

  TEnumArr = TArray<TEnum>;

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

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

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