关于pascal类使用的SIGSEV错误

Question

在Lazarus中使用以下类代码我在writeln（woman.name，'has been born'）上得到以下错误：行：“工程在我的应用出现了异常类的外部SIGSEV“其他PASCAL代码似乎工作确定

program project1; 
uses wincrt; 

type human = class 
    private 
     health : integer; 
    public 
     name : string; 
     constructor born(n: string); 
end; 

constructor human.born(n: string); 
begin 
    name := n; 
    health := 100; 
end; 

var 
    woman : human; 

begin 
    woman.born('Tracy'); 
    writeln(woman.name, 'has been born'); 
end. 

Answer 1

您需要实例化对象是这样的：

woman := human.born('Tracy');