Keine Ahnung, ob das hier was bringt, aber der Vollständigkeit halber:
Delphi-Quellcode:
type
TSomeBase = (ssEins, ssZwei, ssDrei, ssVier, ssFuenf, ssSechs, ssSieben, ssAcht, ssNeun);
TSomeSet = set of TSomeBase;
TSomeFirst = ssEins..ssDrei;
TSomeMiddle = ssVier..ssFuenf;
TSomeLast = ssSechs..ssNeun;
TSomeTyp = ssEins..ssFuenf;
const
TSomeStyle: TSomeSet = [ssFirst..ssDrei, ssSechs..ssNeun];