delphi的机制决定delphi到运行前都不能确定与变量相关对象的实际类 可以这样 type Tanimal = class; public function voice : string; virtual;//将其定义为虚拟的然后在后面的定义中覆盖 TDog = class (Tanimal) public function voice:string; override; . . . function Tanimal.voice : string; begin end;function Tdog.voice:string; beign end;
procedure test(I:Integer); overload;
可以这样
type
Tanimal = class;
public
function voice : string; virtual;//将其定义为虚拟的然后在后面的定义中覆盖 TDog = class (Tanimal)
public
function voice:string; override;
.
.
.
function Tanimal.voice : string;
begin
end;function Tdog.voice:string;
beign
end;
比如
labelvoice.caption := myanimal.voice;mastering d6对类讲的很好(至少我这么觉得),可以看看去
procedure test(i:string);overload;