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

2019-09-06 12:07:00 阅读：239 来源： 互联网

标签：function end string 04 Delphi SayHello IInterface TAmericanChinese ISpeakChinese

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.

标签：function,end,string,04,Delphi,SayHello,IInterface,TAmericanChinese,ISpeakChinese
来源： https://www.cnblogs.com/tianpan2019/p/11473979.html

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。

ICode9

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