04.Delphi通过接口IInterface实现多重继承

Posted tianpan2019

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了04.Delphi通过接口IInterface实现多重继承相关的知识,希望对你有一定的参考价值。

IInterface表示申明了一些函数,自己本身没有实现部分,需要由继承它的类来实现函数

uSayHello代码如下

unit uSayHello;

interface

uses
  SysUtils,
  Windows,
  Messages,
  Classes,
  Graphics,
  Controls,
  Forms,
  Dialogs;

type
  // IInterface表示申明了一些函数,自己本身没有实现部分,需要由继承它的类来实现函数
  ISpeakChinese = interface(IInterface)
    function SayHello: string;
  end;

  // IInterface表示申明了一些函数,自己本身没有实现部分,需要由继承它的类来实现函数
  ISpeakEnglish = interface(IInterface)
    function SayHello: string;
  end;

  // 人类
  TMan = class(TInterfacedObject)
  private
    // 姓名
    FName: string;
  public
    property Name: string read FName write FName;
  end;

  // 中国人,继承了人类和说汉语
  TChinese = class(TMan, ISpeakChinese)
  private
    // ISpeakChinese中定义的函数,序号在继承类中实现
    function SayHello: string;
  end;

  TAmerican = class(TMan, ISpeakEnglish)
  private
    // ISpeakChinese中定义的函数,序号在继承类中实现
    function SayHello: string;
  end;

  // 美籍华人 ,继承了人类,汉语和英语
  TAmericanChinese = class(TMan, ISpeakChinese, ISpeakEnglish)
  public
    constructor create;
    // ISpeakChinese中定义的函数,序号在继承类中实现
    function SayHello: string;
  end;

implementation


  ********************************** TAmerican ***********************************

function TAmerican.SayHello: string;
begin
  result := Hello!;
end;


  *********************************** TChinese ***********************************

function TChinese.SayHello: string;
begin
  result := 你好!;
end;


  ******************************* TAmericanChinese *******************************

constructor TAmericanChinese.create;
begin
  name := Tom Wang;
end;

function TAmericanChinese.SayHello: string;
var
  Dad: ISpeakChinese;
  Mum: ISpeakEnglish;
begin
  Dad := TChinese.create;
  Mum := TAmerican.create;
  // 调用说中文和说英文方法
  result := Dad.SayHello + Mum.SayHello;
end;

end.

界面代码如下

unit frmMain;

interface

uses
  Windows,
  Messages,
  SysUtils,
  Variants,
  Classes,
  Graphics,
  Controls,
  Forms,
  Dialogs,
  StdCtrls,
  ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    LabeledEdit1: TLabeledEdit;
    procedure Button1Click(Sender: TObject);
  private
     Private declarations 
  public
     Public declarations 
  end;

var
  Form1: TForm1;

implementation

uses
  uSayHello;

$R *.dfm

procedure TForm1.Button1Click(Sender: TObject);
var
  Tom: TAmericanChinese;
begin
  // 创建美籍华人类
  Tom := TAmericanChinese.Create;
  try
    LabeledEdit1.text := Tom.Name;
    // 输出
    ShowMessage(Tom.sayhello);
  finally
    Tom.Free;
  end;
end;

end.

 

以上是关于04.Delphi通过接口IInterface实现多重继承的主要内容,如果未能解决你的问题,请参考以下文章

Delphi的基于接口(IInterface)的多播监听器模式(观察者模式 ),利用RTTI实现Delphi的多播事件代理研究

C#通过反射接口可以实例化??

Binder Java层实现:IBinder/IInterface/Binder/Stub

Delphi 接口-接口和多重继承

将带有接口的EqualityComparer作为通用参数调用是否有意义

tcpdump使用