Aufzählungstyp

[omata]

Delphi-Quellcode:

type
  TStartParam = (spRot, spBlau, spGruen, spFrageZeichen);

const 
  cStartParams : array[TStartParam] of string = ('Rot', 'Blau', 'Grün', '?');