Constructor from Instance

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

[Uwe Raabe]

Zitat von Rollo62:

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

Z.B. in Factories.

[Rollo62]

Ok, Factories überzeugt mich