Delphi 接口(6)-接口和多重继承
2021-07-04 04:29
标签：str nbsp imp soscw nes res inf read inter Delphi 接口(6)-接口和多重继承 标签：str nbsp imp soscw nes res inf read inter 原文地址：https://www.cnblogs.com/YiShen/p/9863072.html
unit uSayHello;
interface
uses
SysUtils,
Windows,
Messages,
Greaphics,
Controls,
Forms,
Dialogs;
type
ISeakChinese = interface(IInterface)
function SayHello: string;
end;
ISpeakEndlish = 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
function SayHello: string;
end;
TAmerican = class(TMan,ISpeakEndlish)
function SayHello: string;
end;
TAmericanChinese = class(TMan,ISpeakChinese,ISpeakEndlish)
public
constructor create;
function SayHello: string;
end;
implementation
function TAmerican.SayHello: string;
begin
result := ‘Hello!‘;
end;
function TChinese.SayHello: string;
begin
result := ‘你好‘;
end;
function TAmericanChinese.create;
begin
name := ‘Tom Wang‘;
end;
function TAmericanChinese : string;
var
Dad:ISpeakChinese;
Mum:ISpeakEndlish;
begin
Dad := TChinese.create;
Mum := TAmerican.create;
result := Dad.SayHello + Mum.SayHello;
end;
end.