Klassen mit virtuellem Constructor

[himitsu]

Moin,

TComponent besitzt ja einen virtuellen Constructor ...

gibt es da noch andere delphieigene "Basistypen", welche über sowas verfügen?


Es geht um die Definition für eine Deserialisierung meines himXML,
also speziell darum, welche Classen man dafür registrieren kann.

Das Problem ist ja, daß dieses nur mit Klassen geht, welche über sowas verfügen, da man ja nur die Klassen registrieren kann/müßte und ohne einen solchen Constructor lassen sich "normale" Klassen nicht automatisch erstellen (.Create).

Delphi-Quellcode:

var registriert: array of TComponent;

objekt := registriert[i].Create;

[Alaitoc]

Gib einfach mal in Delphi 7 in der Delphi-Hilfe unter dem Tabsheet Suchen "constructor virtual" ein.
Dort werden mir dann zumindest alle damit aufgelistet :)

Abtippen wäre mir grad zuviel Aufwand :wink:

MfG Alaitoc

[himitsu]

Joar, die über 500 Suchergebnisse kenn ich, allerdings sucht der hier bei "constructor virtual" nach "constructor OR virtual" und das bringt mir recht wenig.

[Alaitoc]

500 Suchergebnisse? :shock:
Also bei mir waren das nur ein paar...

Hab ich auf irgendwas draufgeklickt :gruebel:

Also eigentlich sollte das darüber gehen, ging bei mir zumindest...nur leider hab ich hier zuhause kein Delphi 7 drauf.

MfG Alaitoc

[himitsu]

Nja, es sind mehr, aber bei 500 wird aufgehört mit auflisten.
Wie gesagt, es wird leider ODER verknüpft und demnach werden alle Beiträge gefunden, wo eines der beiden Wörter drinsteht ... als quasi jede Komponente, welche es gibt.

Im Grunde haben auch alle VCL-Komponenten einen viruellen Konstructor, da sie natürlich von TComponent abstammen.
Und ich würde gern wissen, ob noch antere "fundamentale" Klassen soeinen haben, so wie eben TComponent.

[add]
Hab mich schon etwas durch die Deklarationen gekämpft und bis jetzt diese gefunden:

Zitat:

Classes.TBasicActionLink
Classes.TComponent (im Grunde alle VCL-Komponenten)
Classes.TCollectionItem
ComCtrls.TListItem
ComCtrls.TConversion
ComCtrls.TTreeNode
DockTabSet.TTabDockPanel
ExtCtrls.TEditButton
Graphics.TGraphic
OleAuto.TAutoClass

die Fetten werde wohl für eine Deserialisierung und ihre automatische Erzeugung vorsehn
und die grauen dürften für sowas eh nicht in Frage kommen

[Alaitoc]

Also ich schau morgen einfach nochmal nach was ich alles da hatte, wundert mich irgendwie
das es soviele Einträge sind... werde sie dann halt mal abtippen :-D

[uligerhardt]

Zitat:

Zitat von himitsu

Joar, die über 500 Suchergebnisse kenn ich, allerdings sucht der hier bei "constructor virtual" nach "constructor OR virtual" und das bringt mir recht wenig.

Wie wäre es mit "Suchen in Dateien" (oder GExperts-Grep) mit regulären Ausdrücken nach "constructor.*virtual" in den VCL-Sourcen?

[himitsu]

bei der alten OH konnte man noch selber bestimmen, wie gesucht werden so
- Wörter UND oder ODER verknüpft
- Themen ohne Überschrift beachten
- usw.
das geht jetzt nicht mehr

vorallem daß die Suche mehrere Wörter einfach per ODER verknüpft :wall:

@uligerhardt
hatte ich versucht, aber irgendwie mochte er meinen regulären Ausdruck nicht und fand einfach nichts :cry:
drumm hatte ich dann nach "virtual" als ganzes Wort gesucht und mich durch viele Units geklickt :?

ich baue aber grade meine Seralisierung nochmals um und gestalte es so, daß man dann auch noch solche Basisklassen nachrüsten kann :-D
(ich hoffe, daß es dann auch so läuft, wie es geplant ist)

[uligerhardt]

Zitat:

Zitat von uligerhardt

Wie wäre es mit "Suchen in Dateien" (oder GExperts-Grep) mit regulären Ausdrücken nach "constructor.*virtual" in den VCL-Sourcen?

Hab's mal mit Grep probiert, ohne Einschränkung auf ganzes Wort. Ergebnis:

Code:

$(BDS)\Source\Win32\VCL\CaptionedDockTree.pas
     57   $(BDS) Create(DockCaptionOrientation: TDockCaptionOrientation); virtual;

$(BDS)\Source\Win32\VCL\Controls.pas
    439   $(BDS) Create(AControl: TControl); virtual;
    673   $(BDS) Create(Control: TControl); virtual;
    697   $(BDS) Create(Control: TControl); virtual;
   1842   $(BDS) Create(DockSite: TWinControl); virtual;

$(BDS)\Source\Win32\VCL\Forms.pas
    637   $(BDS) CreateNew(AOwner: TComponent; Dummy: Integer = 0); virtual;

$(BDS)\Source\Win32\VCL\Graphics.pas
    704   $(BDS) Create; virtual;

$(BDS)\Source\Win32\VCL\OleAuto.pas
    100   $(BDS) Create; virtual;

$(BDS)\Source\Win32\VCL\ShadowWnd.pas
     51   $(BDS) CreateShadow(AOwner: TComponent; ControlSide: TControlSide); virtual;

$(BDS)\Source\Win32\VCL\Themes.pas
    389   $(BDS) Create; virtual;

[Stevie]

Zitat:

Zitat von himitsu

Das Problem ist ja, daß dieses nur mit Klassen geht, welche über sowas verfügen, da man ja nur die Klassen registrieren kann/müßte und ohne einen solchen Constructor lassen sich "normale" Klassen nicht automatisch erstellen (.Create).

Delphi-Quellcode:

var registriert: array of TComponent;

objekt := registriert[i].Create;

Das ist so aber nicht ganz korrekt, wenn überhaupt, musst du dir Referenzen auf TComponentClass speichern, und darauf ein Create aufrufen. Und das geht auch, wenn der Konstruktor der Basis-Klasse nicht virtual wäre. Das Problem wird dann nur sein, dass ein spezieller Konstruktor beim Erstellen eines Objekts nicht aufgerufen wird. Das kann aber auch passieren, wenn irgendein Spaßvogel von TComponent ableitet und mal fix ein reintroduce statt einem override hinter seinen Konstuktor schreibt. Ok, isser selber schuld dann, aber ich wollte nur die Möglichkeit aufzeigen.