Klassen-Konstruktion einmal anders...

[maximov]

Zitat von maynard:

Tach...

Leider hab ich mit RTTI - Geschichten wenig Erfahrung, daher ist mir mir die Zuweisung etwas unklar:

Code:

MyCustomExceptionReference: TCustomExceptionReference;
// ...
MyCustomExceptionReference := @Exception;
// oder
MyCustomExceptionReference := Exception;

Mit RTTI hat das nicht viel zu tun. Das nennt man imo MetaKlassen und deine zuweisung ohne das @ ist korrekt. Wie zu erwarten sind klassen refernezen auch nur pointer, die für kompatible klasse auch zuweisungskompatible sind - also alle ableitung, von der basis-deklaration.

So, und da das pointer sind kannst du die referenzen auch ganz normal in einer liste verwalten:

Delphi-Quellcode:

type
  TCustomExceptionReference = class of Exception;
...
var l:Tlist;

l.add(Exception);
l.add(EMyException);
...
// beim rausholen musst du dann casten
raise EMyException(l[1]).create('böser fehler');

wobei die frage wäre ob das sinn macht, da so die klassen ziemlich undifferenzierbar in der liste rum wabern. Eine stringliste macht da schon mehr sinn...ich weiss ja nicht was du vor hast?