Type TEnum = (Anfang, Mitte, Ende);
läßt sich via
GetEnumName (
GetEnumName) in einen String übersetzen, welcher zufälig genau deinem Array entspricht.
Also zusammen mit
Const EnumWerte : Array [TEnum] Of Integer = (1,3,5);
.
Bei neueren Delphis könnte man die Werte auch via Attribut an die Typ-Definition hängen
und man könnte da auch andere/alternative "Namen" via Attribut angeben. (wenn man nicht GetEnumName nimmt, sondern es dort selber aussliest)