delphi实现一个类继承抽象类并实现接口

最新推荐文章于 2025-05-24 11:05:11 发布

原创最新推荐文章于 2025-05-24 11:05:11 发布 · 5.5k 阅读

4 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #string #class #任务

Delphi 专栏收录该内容

11 篇文章

订阅专栏

本文详细解释了如何在编程中继承抽象类并实现接口，通过使用实例展示了在不同单元文件中的类设计与继承关系，以及如何正确声明抽象方法并在子类中进行实现。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

问题描述：TSaleOutDao即要继承抽象类TABizDao又要实现接口TIBizDao.

解决办法：先用抽象类继承TIBizDao,然后再把需要实现的接口方法声明为抽象方法。然后再用

TSaleOutDao继承TABizDao.

//IBizDao.pas单元文件 
unit IBizDao;
interface
type
  TIBizDao=interface
    function aaa:string;
  end;
implementation
end.

//ABizDao.pas单元文件 
unit ABizDao;
interface
uses 
  IBizDao;//引用父类单元 
type
  {特别注意，同一个单元内的两个类会被任务是友元类，即如果把SaleOutDao也写在该单元中，
SaleOutDao可以直接访问ABizDao中的私有变量TableName并赋值}
  TABizDao=class(TInterfacedObject,TIBizDao)
  private
    TableName:string;
  protected
    
  public
    constructor create;
    destructor destroy;override;
    procedure SetTableName;virtual;abstract;
    procedure SetTableNameEx(FName:string);
    function GetTableNameEx:string;
{//虽然是继承自接口，但不实现接口的方法；aaa声明为抽象方法，在子类实现}
    function aaa: String;virtual;abstract;
  end;
implementation
{ ABizDao }
constructor TABizDao.create;
begin
  Self.SetTableName;
end;
destructor TABizDao.destroy;
begin
  inherited;
end;
function TABizDao.GetTableNameEx: string;
begin
  Result:=TableName;
end;
procedure TABizDao.SetTableNameEx(FName: string);
begin
  Self.TableName:=FName;
end;
end.

//SaleOutDao.pas单元文件 
unit SaleOutDao;
interface
uses
  ABizDao,IBizDao;//引用父类单元 
type
  TSaleOutDao=class(TABizDao)
  private
  protected
    
  public
    constructor create;
    destructor destroy;override;
    procedure SetTableName;override;
    function aaa: String;override;
  end;
implementation
{实现接口的方法}
function TSaleOutDao.aaa: String;
begin
  Result:='aaa';
end;
constructor TSaleOutDao.create;
begin
  inherited;{加上关键字inherited会调用父类构造函数，如果不加的话不会执行TABizDao.create}
end;
destructor TSaleOutDao.destroy;
begin
  inherited;
end;
{实现抽象类的抽象方法}
procedure TSaleOutDao.SetTableName;
begin
  inherited;
  SetTableNameEx('UserInfo');
end;
end.