type
TMyClass=Class
procedure One; virtual;
end; TMySubClass=Class(TMyclass)
procedure One(S:String); reintroduce; overload;
end;
TMyClass=Class
procedure One; virtual;
end; TMySubClass=Class(TMyclass)
procedure One(S:String); reintroduce; overload;
end;
首先在代码的type段中象以前一样输入函数或子程序名及参数等信息,输完后,按ctrl+shift+'c',delphi将自动完成在implementation段中的程序说明及框架,你要做的只是添加代码而已
从说明到实现是;CTRL+SHIFT+C;
在函数内部用INHERITED关键字