Delphi-Quellcode:
VAR
Nachtwaechter: array [TWochenTag] of TNachtwaechter;
I: TWochenTag;
begin
for I := Low(TWochenTag) to High(TWochenTag) do
List[Ord(I)]
Enumerationen sind ordinale Typen und Schleifen funktionieren mit ordinalen Typen.
Ord(I) liefert die Werte 0 bis 6 in der Schleife