GetClass/Create: Constructor wird nicht aufgerufen

[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; .

[mjustin]

Benötigt man nicht in jedem Fall eine Klassenreferenz?

Hier wird das als Ergebnis festgestellt: https://www.delphipraxis.net/160537-...-erzeugen.html

Zitat:

Wenn ich den Aufruf so gestalte (...) habe ich
keinen Plusgewinn. Ich müsste dann jedes mal die Klassenreferenz kennen.
Dann kann ich den Konstruktor auch selbst aufrufen.

Casten kann man nur Objekte die schon existieren, also bereits ihren Konstruktor ausgeführt haben, dieser Weg ist daher auch nicht gegeben ("Henne-Ei-Problem").

[himitsu]

Nein, man kann auch Klassen-Typen casten.

[DCoderHH]

Danke an alle. So geht's:

Delphi-Quellcode:

MyClass: TMyPersistentClass;
...
Item := T(MyClass.Create);