Constructor from Instance

[uligerhardt]

Zitat von TiGü:

Jetzt noch ClassType statt Class

Äh, ja

Zitat von TiGü:

und dann geht's!

... und sogar ohne virtuellen Konstruktor

[himitsu]

Zitat:

Animal1.Create; // << Das funktioniert nicht. Animal1 wird überschrieben.

Natürlich, weil du hier den Constructor als Funktion/Methode aufrufst, auf einer bestehenden Objekt-Instanz.

Man benutzt zum Erstellen NIEMALS keine Variable, sondern immer den Typ.

ALSO

Delphi-Quellcode:

//Animal2 := Animal1.Create; {NEIN}
Animal2 := TAnimal.Create;

denn sowas will und sollte man, nach Möglichkeit, nicht machen:

Delphi-Quellcode:

Animal2 := TAnimal(TAnimal.NewInstance);
Animal2.Create;

Zitat:

Jetzt noch ClassType ...

Ja, Ob jun direkt den Klassentyp verwenden, oder über eine KlassenTyp-Varialbe (TClass) ... Hauptsache eine Klasse und nicht das Objekt.


Dass es dir das Objekt in Variable Animal1 überschrieben hat, ist korrekt.
Mehr Spaß hättest du mit Animal2 := Animal2.Create; , denn diese Variable war noch nicht initialisiert und es hätte hoffentlich eine schöne Exception gegeben.

Zitat:

Animal2 := TAnimalClass(Animal1.ClassType).Create;

Und nun nur nochmal aus Spaß, auch hier geht es mit getrennter Initialisierung/Speicherreservierung und nachträglichem Constructor.

Delphi-Quellcode:

Animal2 := TAnimal(Animal1.NewInstance);
Animal2.Create;

[Stefan1286b]

Animal2 := TAnimalClass(Animal1.ClassType).Create; Das funktioniert einwandfrei. Vielen Dank

[himitsu]

Zitat von Stefan1286b:

Animal2 := TAnimalClass(Animal1.ClassType).Create;

Will man den Constructor überschreiben, dann muß bei sowas natürlich spätestens in diesem Basistyp das als VIRTUAL (oder DYNAMIC) deklariert sein, und in den Nachfahren natürlich OVERRIDE.

[Stefan1286b]

Ja, das ist richtig.

uligerhardt hatte zwar geschrieben dass es auch ohne geht.

Das Allerdings nur bedingt und damit nicht richtig.
Man kann alle Felder benutzen aber der abgeleitete Constructor wird nicht aufgerufen.
Im Beispiel gab es keinen. Deswegen ist es nicht aufgefallen.
Virtueller und in abgeleiteter Klasse überschriebener Constructor und es funktionier einwandfrei.

Wenn man solche speziellen Sachen macht muss man natürlich noch mehr darauf achten, dass nachher alles wieder freigegeben wird.

Das war bei mir aber gegeben durch:

Delphi-Quellcode:

type
  TAnimalList = class(TObjectList<TAnimal>)
  public
    constructor Create; reintroduce;
  end;

constructor TAnimalList.Create;
begin
  inherited Create(true); //AOwnsObjects
end;

[himitsu]

Bei der Liste muß es nicht sein,
aber wenn TDog und TCat einen eigenen Constructor haben sollen.

Wie bei den TComponent-Nachfahren, welche man auf die Form pappen kann und wo der DFM-Loader natürlich nur TComponent kennt.

[Rollo62]

Zitat von Stefan1286b:

Animal2 := TAnimalClass(Animal1.ClassType).Create; Das funktioniert einwandfrei. Vielen Dank

Sorry, aber warum will man sowas überhaupt machen, mir fällt dazu kaum ein Use-Case ein.
Bestenfalls wäre ein duplizieren einer Instanz, wozu ich dann immer eine explizite Methode ".Clone" dafür anlegen würde, die auch was entsprechend vorbereiten kann.

Der einzige, mögliche Grund, der mit einfällt, könnte sein,
wenn man von einer geschlossenen 3rd-Party Library nur eine Instanz bekommt, aber keinen Zugriff auf die Klassendefinition oder SourceCodes hat.
Dann würde ich aber versuchen diese 3rd-Party Komponente so schnell wie möglich rauszuwerfen.

Bitte klärt mich auf, wenn dafür doch wichtige Anwendungen gibt.

[uligerhardt]

Zitat von Rollo62:

Sorry, aber warum will man sowas überhaupt machen, mir fällt dazu kaum ein Use-Case ein.
Bestenfalls wäre ein duplizieren einer Instanz, wozu ich dann immer eine explizite Methode ".Clone" dafür anlegen würde, die auch was entsprechend vorbereiten kann.

Naja, in Delphi ist es ja üblich, in Klassenhierarchien eine Methode Assign zu haben. Dann kannst du Clone so implementieren:

Delphi-Quellcode:

function TAnimal.Clone: TAnimal;
begin
  Result := TAnimalClass(ClassType).Create;
  Result.Assign(Self);
end;

[Rollo62]

Ja das ist klar.
Ich weiss aber nicht wofür man dies im wirklichen Leben brauchen könnte, außerhalb der Klasse.

Animal2 := TAnimalClass(Animal1.ClassType).Create;


So verstehe ich die Aufgabe von unten.
Animal2 := Animal1.Class.Create;

[uligerhardt]

Zitat von Rollo62:

Ja das ist klar.
Ich weiss aber nicht wofür man dies im wirklichen Leben brauchen könnte, außerhalb der Klasse.

Animal2 := TAnimalClass(Animal1.ClassType).Create;


So verstehe ich die Aufgabe von unten.
Animal2 := Animal1.Class.Create;

Ich hab in unserem Code 6 Vorkommen von ClassType.*Create gefunden - 3 Clone-Methoden und 3 Verwendungen des Musters bei Third-Party-Klassen, wo wir keine Clone-Methode einbauen konnten (TGraphic z.B.).
Ist aber auch eine müßige Frage - ist halt eine Technik, die man bei Bedarf einsetzen kann.