我如何从类引用创建一个Delphi对象并确保构造函数执行？

发布时间：2020-12-15 10:17:36 所属栏目：大数据来源：网络整理

导读：如何使用类引用创建对象的实例，以及确保构造函数被执行？在这个代码示例中，TMyClass的构造函数不会被调用： type TMyClass = class(TObject) MyStrings: TStrings; constructor Create; virtual; end;constructor TMyClass.Create;begin MyStrings := TS

如何使用类引用创建对象的实例，以及
确保构造函数被执行？

在这个代码示例中，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;

解决方法

用这个：

type
  TMyClass = class(TObject)
    MyStrings: TStrings;
    constructor Create; virtual;
  end;
  TMyClassClass = class of TMyClass; // <- add this definition

constructor TMyClass.Create;
begin
   MyStrings := TStringList.Create;
end;

procedure Test;
var
  Clazz: TMyClassClass; // <- change TClass to TMyClassClass
  Instance: TObject;
begin
   Clazz := TMyClass; // <- you can use TMyClass or any of its child classes. 
   Instance := Clazz.Create; // <- virtual constructor will be used
end;

或者，您可以使用类型转换为TMyClass(而不是“TMyClass类”)。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!