请问如何创建类的实例？

Question

我新建了一个Unit，在里面创建了一个新的类TCalculation，并在构造函数中进行了初始化。
请问如何在主窗口的Unit中创建TCalculation类的一个实例？应该在哪个位置创建，怎么创建？谢谢！

Answer 1

代码放在你需要生成实例的地方
var
a :TCalculation;
begin
  a := TCalculation.crate(参数根据情况来);
  
end;

Answer 2

wudi_1982，我试过你的方法，但是为什么Create里的代码不会执行（跟踪调试没有执行Create里的代码）？
我在Create里进行了一些初始化操作。

Answer 3

但是为什么Create里的代码不会执行??把你的类的代码贴出来，看看。