小编Hil*_*uza的帖子

我想知道为什么我在以下代码中出现"不兼容类型"错误消息.我正在寻找TInheritanceClass的结果是'Test String Passed'.

TBaseClass = class
  function Test: String; virtual;
end;

TDerivedClass = class(TBaseClass)
  function Test: String; override;
end;

function TBaseClass.Test: String;
begin
  Result := Result + ' Passed';
end;

function TDerivedClass.Test: String;
begin
  Result := 'Test String';
  inherited;
end;