Konstantenauflistung (wie clGreen, clRed, ) selber erstellen

[dartrax]

Hi!

Ich möchte für eine eigene Klasse so eine Konstantenauflistung (Enumeration?) selber machen! Das Ziel ist, Eigenschaften dann mit einem solchen Typ zu deklarieren und dann dieser entweder den Konstantenname oder über einen Index zuzuweisen! Also so, wie z. B. die Eigenschaft Color eines Controls: Sie sind vom Typ TColor und es gibt Konstanten wie clBlack, clGreen, clRed u.s.w., ich kann der Eigenschaft aber auch eine Zahl zuweisen.

Ich habe es schon mit folgendem Code im type-Abschnitt probiert:

Delphi-Quellcode:

type
  TCoinTyp = (Coin10, Coin25, Coin50);

Allerdings akzeptiert Delphi es nicht, wenn ich statt Coin50 z. B. 2 auf eine TCoinTyp-deklarierte Eigenschaft zuweise.

Wie geht das?

Vielen Dank,
dartrax