pascal类使用时出现SIGSEGV错误

Question

在Lazarus中使用以下类代码我在writeln上得到以下错误（woman.name，＆＃39;已经诞生＆＃39;）; line：＆＃34; Project My Application引发了异常类＆＃39;外部SIGSEV＆＃39;。其他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');