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

Question

这是我的问题 - 很快:

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

这两个类都继承自 TObject。如果它们不继承，那么我无法在类中使用调试器，因此我必须使用 TObject。

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

看来我不能有多个继承自 TObject 的类，这是问题所在吗？

如何修复我的代码，有什么建议吗？

提前致谢!

Answer 1

正确的语法应该是:

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