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?