Zitat:
Delphi-Quellcode:
type
TMeinBeispiel = ( mbEins, mbZwei, mbDrei );
const
MeinBeispielValues : array[TMeinBeispiel] of integer = ( 0, 1, 5 );
[edit]
"hatte" ... hatte "hab" gelesen.
Aber zusätzlich hast du so eben einen Code, wo man alle gültigen "Namen" auslesen kann und auch eine Liste (Array) mit allen gültigen Werten hat.