Variable für const array

[BerndS]

Oder so, ich habe es aber nicht getestet...

Delphi-Quellcode:

type
  TEnum = (eEins, eZwei, eDrei, eVier, eFünf, eSechs, eSieben, eAcht, eNeun, eZehn);
  TEnumArray = array of TEnum;
  PEnumArray = ^TEnumArray;

const
  Enum1: array [0 .. 4] of TEnum = (eEins, eDrei, eSechs, eSieben, eZehn);
  Enum2: array [0 .. 6] of TEnum = (eZwei, eVier, eFünf, eSechs, eAcht, eNeun, eZehn);

function IstDrin(VarE:TEnum;const AEnum: TEnumArray):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: PEnumArray;
begin
  case AEnumNr of
    1 : AEnum :=  @Enum1;
    2 : AEnum :=  @Enum2;
    else
      Exit;
  end;
  If IstDrin(eDrei,AEnum^)
    then  ;
end;