Untypisierte Konstante übergeben?

[tn249]

Hallo,

wahrscheinlich steh ich wie der Ochs vorm Berg, aber auch die Suchfunktion hat mir nicht weitergeholfen;

habe mehrere Typen:

Delphi-Quellcode:

TColor = (BLUE = 1, RED = 2, GREEN = 3);
TKind = (CAR = 1, BIKE = 2);

und jetzt möchte ich in einer function/procedure sowohl BLUE als auch CAR übergeben können, aber wie mache ich das?

bei variablen kann man ja den Typ weglassen, wenn man dafür ein var oder const schreibt, aber bei Konstanten geht das nicht, weil der compiler wegen 'incompatible types' stoppt.

natürlich könnte ich Ord ( BLUE ) oder Ord ( CAR ) übergeben, aber das finde ich nicht elegant, auch wenns für meine Zwecke ausreichen würde.

Gruß & Dank im Vorraus
Thomas