關於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');