pascalabcnet/TestSuite/inherited1.pas

type TClass = class
public function ToString: string; override;
begin
  inherited ToString();

  Result := 'tt'+inherited ToString;

  var s0: string;
  s0 := inherited ToString();
  
  //var s: string := 'ss' + inherited ToString();
  
end;
end;

var obj : TClass;
begin
  obj := new TClass;
  assert(obj.ToString()='ttinherited1.TClass');
end.