function max(a, b :Byte):byte;overload; //声明成重载函数 function max(a, b :integer):integer;overload; //可以看出两个函数的参数类型不一样override的使用方法 TBase = class(TObject) public function abc :Boolean;virtual; //虚函数 end;TDest = class(TObject) public function abc :Boolean;overrdie; //overrdie的使用方法 end;
override 是对父类声明的vitural或dynamic方法进行覆盖
function max(a, b :integer):integer;overload; //可以看出两个函数的参数类型不一样override的使用方法
TBase = class(TObject)
public
function abc :Boolean;virtual; //虚函数
end;TDest = class(TObject)
public
function abc :Boolean;overrdie; //overrdie的使用方法
end;
TDest = class(TBase)才对我写成了TDest = class(TObject)了