Variable für const array

[Uwe Raabe]

Zitat von Benmik:

@Uwe:
Und auch das hatte ich probiert. Ich hoffe, ich habe jetzt keinen Flüchtigkeitsfehler begangen, aber der Compiler sagt bei AEnum := Enum1; : "Inkompatible Typen: TArray<TEnum> und array[0..4] of TEnum.

Dann weicht dein Code noch irgendwo von meinem ab. Dort gibt es nämlich nirgendwo ein array[<irgendwas>] of .

[Benmik]

Wie schon geschrieben, du hast Recht. Danke dir.

[Benmik]

Darf ich noch fragen, warum die Lösung von BerndS nicht funktioniert?

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

[Uwe Raabe]

Zitat von Benmik:

Darf ich noch fragen, warum die Lösung von BerndS nicht funktioniert?

Weil ein Pointer auf ein dynamisches Array nicht mit einem Pointer auf ein statisches Array kompatibel ist. Ein dynamisches Array ist selbst schon ein Pointer auf den Array-Speicher mit einem Verwaltungsblock davor. Dieser Block fehlt bei einem statischen Array, deswegen kann man keinen Pointer auf ein statisches Array verwenden, wenn ein dynamisches erwartet wird - selbst wenn man versucht, die Pointer auszutricksen und womöglich noch hard-zu-casten. Das ist in den aktuellen Delphi-Versionen ja wie gezeigt auch nicht nötig.

[Benmik]

Du liebe Zeit. Auf sowas soll man kommen. Danke.

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

[Uwe Raabe]

Zitat von BerndS:

Allerdings hätte ich es wahrscheinlich den Beispielprojekt nicht mit einem Array sondern per Set gemacht.

Das ist aber nicht immer möglich: Im Gegensatz zu einem Set kann in einem Array ein Element mehrfach vorkommen und die Elemente können in bestimmter Weise angeordnet sein.

[Benmik]

Die Variante gefällt mir aber auch gut.