Meine Frage an die Experten, ist der obige Code noch Factory konform, oder ist es nur irgendwas?
Sieht interessant aus - spannend ist zu klären, ob ein Konstruktor aufgerufen würde. Angenommen, THund hat einen parameterlosen Konstruktor. Wird er aufgerufen?
In diesem ähnlichen Code würde der Konstruktor
nicht aufgerufen:
Delphi-Quellcode:
type
TMyClass = class(TObject)
MyStrings: TStrings;
constructor Create; virtual;
end;
constructor TMyClass.Create;
begin
MyStrings := TStringList.Create;
end;
procedure Test;
var
Clazz: TClass;
Instance: TObject;
begin
Clazz := TMyClass;
Instance := Clazz.Create;
end;
Dieses negative Resultat kann ich mir auch bei einem THund Konstruktor vorstellen.