destructor destory;
property Name:string read FName write FName;
end;
TChinese=class(TPerson,IInterface)
public
procedure SayHello(str:string);overload;
procedure SayHello;overload;override;
published
constructor create;
destructor destory;
end;
{ TPerson }
constructor TPerson.create;
begin
ShowMessage('TPerson.create');
end;
destructor TPerson.destory;
begin
ShowMessage('TPerson.destory');
end;
procedure TPerson.Eat;
begin
ShowMessage('TPerson.Eat');
end;
