Klassen-Konstanten

[Puke]

Moin Gemeinde,
Ich muss gewisse Strings interpretieren. Damit ich diese Interpretation in Schleifen durchführen kann, möchte ich Klassenkonstanten festlegen. Nur weiß ich nicht ob es geht und wenn wie .
Wie ich es mir eigentlich vorgestellt hatte:

Delphi-Quellcode:

const
  cloc_classes: Array [0..n] of tclass = (tclass1, tclass2, ...);
var
  loc_object: TObject;
begin
  loc_object := cloc_classes[1].Create;
  // ...
end;

Gibt es etwas ähnliches in Delphi?

Viele Dank und Grüße
Puke

[himitsu]

Ich sag es mal so:

Warum hast du deinen gezeigten Code nicht einfach mal ausprobiert?
Man könnte überrascht werden.

[sx2008]

Der Konstruktor von "tclass" muss aber virtuell sein, andernfalls werden die Konstruktoren von "tclass1" usw. nicht aufgerufen.

[Dejan Vu]

Das sieht mir nach einer kleinen Klassenfabrik aus. Ich würde das aber nicht als Konstante deklarieren, sondern mir eine kleine Klasse bauen, die eine Klassenfabrik implementiert und dort die Klassen registrieren. Warum? Weil das flexibler ist. So bin ich nicht darauf beschränkt, meine Klasse über einen Index anzusprechen, sondern kann einen beliebigen Schlüssel nehmen, sei es eine Enumeration, String o.ä.

Man kann z.B. in der Klasse sicherstellen, das eine Klasse nicht doppelt registriert ist und entsprechend reagieren, wenn die Klasse nicht registriert ist. Bei einem einfachen Array und ausgeschalteter Bereichsprüfung bekommt man da Probleme.