Konstanten-Array ist nicht konstant

[darktrym]

Eigentlich sollte das recht trivial sein aber der Compiler meldet stets das folgendes Konstrukt nicht konstant (genug) ist und deshalb im Case-Block nicht verwendet werden kann:

Delphi-Quellcode:

type
  tMfc_MessageTypes = (MMT_None{=0}, MMT_PalletComplete{=90}, MMT_Inserted{=100});
  tMfc_MessageTypeArray = array[tMfc_MessageTypes] of integer;
const
  cMfc_MessageTypes: tMfc_MessageTypeArray = (0, 90, 100);

Der Zugriff erfolgt dann via:

Delphi-Quellcode:

Case x of 
cMfc_MessageTypes[MMT_Inserted]: y; 
end;

Wie erstelle ich nun einen Konstanten-Array?

[jaenicke]

Meinst du vielleicht so etwas?

Delphi-Quellcode:

var
  x: Integer;
begin
  Case x of
    Byte(MMT_Inserted): ;
  end;

Du musst den Typ ohne Umwandlung durch ein Array angeben. Entweder so oder mit expliziten Konstanten oder ähnlichem.

Das Mapping der Integerwerte musst du vorher selbst über das Array machen oder die Werte MMT_Inserted direkt in der Deklaration zuweisen (wie du es ja auskommentiert schon drin hast).

[Papaschlumpf73]

Ohne jetzt auf dein speziellen Fall Rücksicht zu nehmen. Hier ein Beispiel für ein const String-Array

const
MyArray: array[0..2] of String=(
('String0'),
('String1'),
('String2'));

Das kannst du bestimmt adaptieren...

[jaenicke]

Zitat von Papaschlumpf73:

Ohne jetzt auf dein speziellen Fall Rücksicht zu nehmen. Hier ein Beispiel für ein const String-Array

Das ändert doch an dem Problem nichts. Auch damit gibt es kein automatisches Mapping auf einen anderen Integerwerts als den in der Enumeration selbst den Werten zugewiesene. Das ist aber auch nicht in der Form möglich.

[himitsu]

Entweder if x = cMfc_MessageTypes[MMT_Inserted] then y else if ...

oder du mußt eben dort Konvertieren, wo du keine Konstante brauchst.

Delphi-Quellcode:

case cMfc_IntToMessageTypes(x) of
  MMT_Inserted: y;
end;

Ginge als Funktion oder als Array tMfc_MessageTypeArray = array[Byte] of tMfc_MessageTypes; , nur hat dann dein Array natürlich viele Lücken, welche in der Array-Konstante dann mit irgendwas gefüllt werden müssten.
Wobei die Funktion auch das alte Array nutzen könnte, um darin den Wert zu suchen.

[Papaschlumpf73]

Zitat von jaenicke:

Zitat von Papaschlumpf73:

Ohne jetzt auf dein speziellen Fall Rücksicht zu nehmen. Hier ein Beispiel für ein const String-Array

Das ändert doch an dem Problem nichts. Auch damit gibt es kein automatisches Mapping auf einen anderen Integerwerts als den in der Enumeration selbst den Werten zugewiesene. Das ist aber auch nicht in der Form möglich.

Sorry, ich hatte nur die Frage gelesen:
"Wie erstelle ich nun einen Konstanten-Array?"

Ich muss mir einfach mal mehr Zeit nehmen...

[himitsu]

Das Array ist zwar eine Konstante, aber auch nicht,
und dein Zugriff auf dieses Array cMfc_MessageTypes[MMT_Inserted] ist somit auch nicht konstant.

"typisierte" Konstanten sind eigentlich nur "schreibgeschützte" Variablen.

Delphi-Quellcode:

const
  A = 0;  // "echte" Konstante
  B: Integer = 0;  // Konstante (aber intern eine schreibgeschützte globale Variable)

{$IF A = 1} miep {$IFEND}
{$IF B = 1} mööp {$IFEND}