Verschiedene Aufzählungstypen in einer Funktion verwenden.

[himitsu]

Zitat:

TAtype1Data = array [lo(TAtype1) .. high(TAtype1)] of string;

Bei ordinalen Typen und mit vollständigem Wertebereich, da kann man es sich auch einfach machen.
TAtype1Data = array [TAtype1] of string;