Variable für const array

[Redeemer]

Noch 'ne Variante:

Delphi-Quellcode:

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


function IstDrin(VarE:TEnum;const AEnum: TEnumarray; Size: Integer):Boolean;
var
i: Integer;
begin
  Result := False;
  For i := 0 to Size - 1 do
    If AEnum[i] = VarE
      then exit(True);
end;

procedure MachWas(AEnumNr:integer);
var
  i:integer;
  AEnum: ^TEnumarray;
  ASize: Integer;
begin
  case AEnumNr of
    1: begin
         AEnum := @Enum1;
         ASize := Length(Enum1);
    end;
    2: begin
         AEnum := @Enum2;
         ASize := Length(Enum2);
    end;
  end;
  If IstDrin(eSieben,AEnum^, ASize) then
  writeln('ist drin');
end;