Как создать экземпляр объекта, используя ссылку на класс, и убедитесь, что конструктор выполнен?
В этом примере кода конструктор TMyClass не будет вызываться:
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;