GetClass/Create: Constructor wird nicht aufgerufen

[himitsu]

GetClass gibt TClass zurück.
Du mußt das erst nach TPersistent casten, um dessen virtuellen Constructor nutzen zu können, da TClass diesen nicht kennt.

[edit]
Hmmm, neee, GetClass stimmt.
Und der Cast T sollte diesen Constructor auch kennen, aber vielleicht klappt das nicht da TObjectList<T> nur TObject/TClass kennt und der Generic deswegen hier mal wieder nicht richtig funktioniert?

Ein kleiner Hack zum Testen?
TPersistent(Item) := MyClass.Create;

[DCoderHH]

Zitat von himitsu:

Ein kleiner Hack zum Testen?
TPersistent(Item) := MyClass.Create;

Kein einziger Konstruktor wird aufgerufen. Komisch oder?

[Fritzew]

Nee nicht komisch.

Delphi-Quellcode:

MyClass: TPersistentClass; // Sollte das nicht eher sowas wie TMyPersistentClass sein?
// Also 
Type TMyPersistentClass = class of TMyPersistent;

TPersistentClass ist ja class of TPersistent also wird der constructor von Persistent aufgerufen

[Der schöne Günther]

Genau das. In TPersistent ist der Konstruktor ja auch nicht virtuell. Wäre er es, wäre es was anderes, aber so...

PS: Warum nicht einfach T.Create() ?

[DCoderHH]

Zitat von Der schöne Günther:

PS: Warum nicht einfach T.Create() ?

Weil T ein TTestItem ist. Siehe hier: TTestList = class(TMyObjectList<***TTestItem***>)
Ich möchte aber Unterklassen von T erzeugen. Und zwar entweder TTestItemSubA oder TTestItemSubB. So wie es aus der Datei kommt, die ausgelesen wird.

T.Create würde mir also nur ein TTestItem erzeugen und nicht meine benötigten Unterklassen von T.

[himitsu]

Ach stimmt, falsch gesehn.

Delphi-Quellcode:

TMyPersistent = class(TPersistent)
public
  constructor Create; virtual;
end;

Entweder das ist override aus TPersistent oder davor, dann kannst du TPersistent für das Create verwenden.

Ansonsten mußt du es vorher nach TMyPersistentClass casten und da dann das Create aufrufen.
Im prinzip

Zitat:

Item := TC(MyClass).Create; // TC = class of T;

, aber da sowas bei den Generics nicht geht, dann eben Item := T(TMyPersistentClass(MyClass).Create);


TPersistent oder war es TComponent , hat aber schon einen virtuellen Constructor und jenen solltest du unbedingt verwenden, da deine Klassen sonst mörderisch abrauchen, sollten sie jemals mit dem FormDesigner, bzw. dem DFM-Streaming im Berührung kommen,

[Fritzew]

Zitat von himitsu:

TPersistent oder war es TComponent , hat aber schon einen virtuellen Constructor und jenen solltest du unbedingt verwenden, da deine Klassen sonst mörderisch abrauchen, sollten sie jemals mit dem FormDesigner, bzw. dem DFM-Streaming im Berührung kommen,

Persistent hat keinen virtuellen constructor.

Type TMyPersistentClass = class of TMyPersistent;

Wenn Er den Classtype so deklariert hat genügt
es MyClass.Create aufzurufen. Kein casten oder ähnliches notwendig.
Ich würde in dem Fall sogar ein ebene höher gehen
und MyClass als TTestItemClass definieren.

[himitsu]

Zitat von Fritzew:

Ich würde in dem Fall sogar ein ebene höher gehen
und MyClass als TTestItemClass definieren.

Vom Prinzip ändert es aber nichts.

Das was aus GetClass raus kommt muß früher oder später gecastet werden, um an den richtigen Constructor ranzukommen.

Zitat:

Kein einziger Konstruktor wird aufgerufen. Komisch oder?

Und um dass nochmal zu kommentieren.
Doch, es wurde definitiv ein Constructor aufgerufen ... nur halt nicht Deine(r).
> TObject.Create


PS: Der Constructor muß nicht unbedingt Create heißen.
Zum Testen kannst du ihn gern MyIrgendwas nennen und dann schauen was dabei passiert. (den "falschen" Create erwischst dann ja nicht mehr)
Im TMyPersistent.Create dann natürlich mit inherited Create; .