Enumeration als Parameter übergeben

[Marco Fischer]

Hallo,

ich möchte gerne folgendes realisieren:

In einer projektübergreifenden Unit soll eine Klasse für den Registry-Zugriff implementiert werden, mit den entsprechenden Getter/Setter-Funktionen für den Registry-Zugriff (Lesen/Schreiben), basierend auf Indexbezeichner.
Im Projekt soll eine davon abgeleitete Klasse definiert werden, in welcher dann die projektspezifischen Properties mittels Indexbezeichner definiert werden. Als Indexbezeichner soll dabei eine Enumeration zum Einsatz kommen.
In der Basis-Klasse soll aus der Enumeration mittels GetEnumName der entsprechende Bezeichner ermittelt und als Name für den Registry-Eintrag verwendet werden.
Wie kann ich jetzt die pro Projekt verschiedenen Enumerations z.B. im Konstruktor an die Basis-Klasse übergeben?

Vielen Dank für jeden Hinweis.

Mit freundlichen Grüßen

Marco

[jaenicke]

Wie wäre es mit Generics?

Delphi-Quellcode:

type
  TBaseClass<T> = class
  public
    constructor Create(MyParam: T);
  end;

  // andere Unit:
  TTestClass1 = class(TBaseClass<TMyEnum1>)
  end;

Und so weiter. So kannst du in der Basisklasse den Typ offen lassen und erst bei der konkreten Klasse von der entsprechend typisierten Klasse ableiten.

[Marco Fischer]

Hallo,

als D5 Umsteiger waren mir die Generics noch nicht geläufig.
Hat jetzt problemlos damit funktioniert.

Vielen Dank für die schnelle und konstruktive Hilfe.

Mit freundlichen Grüßen

Marco

[himitsu]

Ansonsten hätte man noch untypisierte Parameter nehmen können (also ohne Verfügbakeit der Generics.

Delphi-Quellcode:

type
  TTestClass1 = class
  public
    constructor Create(const MyParam);
  end;

  // andere Unit:
  TTestClass1 = class(TBaseClass)
  end;

Wenn man jetzt davon ausgeht, daß die Enumeratoren immer maximal 256 Werte besitzen, dann könnte man dieses intern in ein Byte casten.