delphi – 如何同时创建两个类的实例？

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

导读：这是我的问题 – 很快： var c1:TClass1;c2:TClass2;begin c1 := c1.Create; c2 := c2.Create; //Exception;end; 这两个类都继承自TObject.如果它们不继承,那么我不能在类中使用调试器,所以我必须使用TObject. 我真正的问题是我必须在第一个类的实例中的函数

这是我的问题 – 很快：

var c1:TClass1;
c2:TClass2;
begin
  c1 := c1.Create;
  c2 := c2.Create; //<<Exception;
end;

这两个类都继承自TObject.如果它们不继承,那么我不能在类中使用调试器,所以我必须使用TObject.

我真正的问题是我必须在第一个类的实例中的函数内创建第二个类的实例.当我在其中时,我无法找到释放第一个类的实例的方法.

看来我不能有多个继承自TObject的类,那是问题吗？

如何修复我的代码,任何建议？

提前致谢！

解决方法

正确的语法应该是：

C1 := TClass1.Create;
C2 := TClass2.Create;

（编辑：李大同）

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