Delphi mit generischen Datentypen oder templates

[warheart]

Guten Morgen Delphianer

Heute morgen habe ich angefangen, mir eine SkipList (was das ist -> weiter unten) zu bauen. Anders als die Implementation aus der Code-Library möchte ich aber keine Pointer verwenden. Aber ich möchte dennoch verschiedene Typen von Keys und Objekten darin speichern können. Nun habe ich mich umgeschaut, ob es in Delphi einen ähnlichen Mechanismus wie Generics in Java oder templates in C++ gibt. Leider nichts schlaues gefunden...

Der grosse Vorteil von solchen Generics wäre, dass man bei der Deklaration genau sagen kann, welcher Datentyp als Schlüssel und welcher als Wert vorkommen wird. So entfällt das Risiko, nicht unterstützte Datentypen reinzukopieren bzw. zu casten beim rausholen.

Mein aktueller Ansatz ist mit Integers als Keys und mit TObject als Element zu arbeiten:

Delphi-Quellcode:

type MyLocator = class(TObject)
protected
  FKey: integer;
  FElement: TObject;
  next: array of MyLocator;

Falls es wirklich kein Generics gibt in Delphi, was wären die vorschläge der Community-Mitglieder um die Sache vielfältig aber dennoch möglichst safe zu machen?

Mit der SkipList implementiere ich eine OrderedDictionary, d.h. für jeden Eintrag in der Liste gibt es einen Schlüssel und einen Wert. z.B. kann man als ID eine Personalnummer und als Wert den Namen, Adresse usw in einem Objekt von irgendeinem Typ haben. Oder man kann, wie der Name sagt, als Key das Deutsche Wort "Fussball" und dann die englische Übersetzung "Football" als Wert nehmen. Und noch ein zweites Element "Fussball" / "Soccer" machen. Natürlich kann in einer Instanz von der Liste nur ein einziger Datentyp als Key verwendet werden.

Danke und guten Start in die verregnete Woche (jedenfalls in lovely switzerland...)