AW: Klasse nach Vergleich mit Feld in Klasse erzeugen
Ja eben, nach einem Blick auf sein Profil fiel mir auch gleich RTTI ein, da muss man dann nicht soviel selbst machen.
|
AW: Klasse nach Vergleich mit Feld in Klasse erzeugen
Im Prinzip muss die Factory die zu erzeugenden Klassen nicht einmal konkret kennen.
So kann man später beliebige Unterklassen ableiten, ohne TParentClass zu ändern:
Delphi-Quellcode:
unit UnitParentClass;
interface uses Classes, Contnrs, SysUtils; type TChildClassParams = record {...} end; TParentClass = class; TChildClassType = class of TParentClass; TParentClass = class private class var FClassList: TClassList; class procedure FreeList; protected class procedure Register(AClassType: TChildClassType); class function New(AParams: TChildClassParams; var AInstance: TParentClass): Boolean; virtual; abstract; public class function CreateInstance(AParams: TChildClassParams): TParentClass; end; implementation { TParentClass } class function TParentClass.CreateInstance(AParams: TChildClassParams): TParentClass; var p: Pointer; begin Result := nil; if Assigned(FClassList) then begin for p in FClassList do begin if TChildClassType(p).New(AParams, Result) then Exit; end; end; end; class procedure TParentClass.FreeList; begin FreeAndNil(FClassList); end; class procedure TParentClass.Register(AClassType: TChildClassType); begin if not Assigned(FClassList) then FClassList := TClassList.Create; FClassList.Add(AClassType); end; initialization finalization TParentClass.FreeList; end.
Delphi-Quellcode:
unit UnitChildClass;
interface uses UnitParentClass; type TChildClass = class(TParentClass) protected class function New(AParams: TChildClassParams; var AInstance: TParentClass): Boolean; override; end; implementation { TChildClass } class function TChildClass.New(AParams: TChildClassParams; var AInstance: TParentClass): Boolean; begin Result := {AParams = ???} True; if Result then AInstance := Self.Create; end; initialization TChildClass.Register(TChildClass); end. |
AW: Klasse nach Vergleich mit Feld in Klasse erzeugen
Zitat:
|
AW: Klasse nach Vergleich mit Feld in Klasse erzeugen
Du kannst deine Klassen bei einer generischen
Delphi-Quellcode:
registrieren und dann diese durchsuchen.
TList<TChildClassType>
Man könnte auch z.B. ein
Delphi-Quellcode:
nutzen, wo dann der der "Schlüssel" nicht in der Klasse steht, sondern in der Liste.
TDictionary<string, TChildClassType>
Dort würde dann eine einzige Suchanfrage an diese Liste sofort die Klasse liefern. |
AW: Klasse nach Vergleich mit Feld in Klasse erzeugen
Zitat:
Jede Child-Klasse muss zunächst registriert werden. Er hat dann aber einen etwas indirekten Weg über die virtuelle Methode New eingeschlagen um ein Objekt einer bestimmten Klasse zu erzeugen. Der Standardweg wäre aber einen virtuellen Konstruktor in der Basisklasse einzuführen, der dann in allen Child-Klassen überschrieben werden muss. So macht es z.B. die VCL mit der Klasse TComponent. Der Konstruktor ist virtuell damit zur Laufzeit immer der richtige Code ausgeführt wird. Die hat aber zur Konsequenz dass es nur noch einen Konstruktor geben darf. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:41 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz