Απαριθμήσιμοι τακτικοί τύποι

Τέλος, μπορούμε να ορίσουμε απαριθμήσιμους τακτικούς τύπους ως σύνολο ονομασμένων τιμών με διάταξη που ορίζει ο χρήστης.

Παράδειγμα:

type
	ScreenColor = (Red, Green, Blue);
	Shape = (Line, Triangle, Rectangle, Circle);
Τους απαριθμήσιμους τακτικούς τύπους μπορούμε να τους χρησιμοποιήσουμε σχεδόν όπως και τους υπόλοιπους τακτικούς τύπους. Δεν μπορούμε να τους διαβάσουμε με την εντολή ReadLn και να τους τυπώσουμε με την εντολή WriteLn.

Παράδειγμα:

Program EnumExample;
type
	ScreenColor = (Red, Green, Blue);
var
	Color : ScreenColor;
begin
	Color := Red;
	while Color < Blue do
	begin
		writeln(ord(Color));
		Color := succ(Color)
	end
end.