请教一个面向对象的问题(50分)

基类有两overload的方法
type
TBase=Class
protected
function MyFun:String;overload;virtual;abstract;
function MyFun(s:String):String;overload;virtual;abstract;
end;
派生类需要覆盖这两个方法，不知道怎么写
TChild = class(TBase)
public
function MyFun:String;override
//这里应该怎么写才好
function MyFun(s:String):String;override
//这里应该怎么写才好
end;

关注 关注 关注 关注 关注

type
TBase=Class
protected
function MyFun:String;overload;virtual;abstract;
function MyFun(s:String):String;overload;virtual;abstract;
end;

TChild = class(TBase)
public
function MyFun:String;overload
override
//这里应该怎么写才好
function MyFun(s:String):String;overload;override
//这里应该怎么写才好
end;

{ TChild }

function TChild.MyFun: String;
begin
Result := inherited MyFun;
end;

function TChild.MyFun(s: String): String;
begin
Result := inherited MyFun(S);
end;

MyFun是抽象函数，在TChild里具体实现
并且不是只Result := inherited MyFun;

救命 救命 救命 救命 救命