Delphi 接口(9)-接口和面向对象编程

最新推荐文章于 2023-01-05 14:44:24 发布
最新推荐文章于 2023-01-05 14:44:24 发布
阅读量82 收藏
点赞数
原文链接：http://www.cnblogs.com/YiShen/p/9865669.html
版权 

unit uSayHello;

interface

uses    
    SysUtils,
    Windows,
    Messages,
    Greaphics,
    Controls,
    Forms,
    Dialogs;

type 

IGreetable = interface
    ['|0000-0000-0000-0000|']
    function SayHello: PChar;
end;

TMan = class(TInterfacedObject,IGreetable)
    Language: string;
    Married: Boolean;
    Name: string;
    SkinColor: string;
    constructor create; virtual;
    function SayHello: PChar; virtual; abstract;
end;

TChinese = class(TMan)
public  
    constructor create; override;
private
    function SayHello: PChar; override;
end;

TAmerican = class(TMan)
public
    constructor create; override;
private 
    function SayHello: PChar; override;
end;

TFrnch = class(TMan)
public
    constructor create; override;
private
    function SayHello: pchar ;override;
end;

TKorean = class(TMan)
public
    constructor create; override;
private
    function SayHello: pchar ; override;
end;

TET = class(TInterfacedObject,IGreetable)
private
    function SayHello: pchar;
end;

TRobot = class(TInterfacedObject,Igreetable)
private
    function SayHello: pchar;
end;

implementation

constructor TMan.create;
begin
  Name := '张三';
  Language := '中文';
  SkinColor := 'yellow';
end;

constructor TChinese.create;
begin
    inherited;
end;

constructor TAmerican.create;
begin
    Name := 'Lee';
    Language := 'English';
    SkinColor := 'black';
end;

constructor TFrnch.create;
begin
    Name:='苏菲';
    Language := '法文';
    SkinColor := 'white';
end;

constructor TKorean.create;
begin
    Name := '韩国';
    Language := '韩文';
    SkinColor := 'yellow';
end;

function TChinese.SayHello;
begin
    result := '中国人:你好!';
end;

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

function TFrench.SayHello;
begin
    result := '法国人:你好';
end;

function TKorean.SayHello;
begin   
    result := '韩国人:你好';
end;

function TET.SayHello;
begin
    result := 'TET:你好';
end;

function TRobot.SayHello;
begin
    result := 'Robot:你好';
end;

unit uFromSayHello

uses    
    //...

type
TFormSayHello = class(TForm)
    btnUSA: TButton;
    btnKorean: TButton;
    btnCN: TButton;
    btnFrench: TButton;
    btnET: TButton;
    btnRobott: TButton;
    procedure btnUSAClick(Sender: TObject);
    procedure btnKoreanClick(Sender: TObject);
    procedure btnCNClick(Sender: TObject);
    procedure btnFrenchClick(Sender: TObject);
    procedure btnETClick(Sender: TObject);
    procedure btnRobottClick(Sender: TObject);
end;

procedure TFormSayHello.SayHello(greeting: IGreetable);
begin
    ShoeMessage(greeting.SayHello);
end;

procedure TFormSayHello.btnKoreanClick(Sender: TObject);
begin
    SayHello(TKorean.create);
end;

procedure TFormSayHello.btnCNClick(Sender: TObject);
begin
    SayHello(TChinese.create);
end;

procedure TFormSayHello.btnFrenchClick(Sender: TObject);
begin
    SayHello(TFrench.create);
end;

procedure TFormSayHello.btnETClick(Sender: TObject);
begin
    SayHello(TET.create);
end;

procedure TFormSayHello.btnRobottClick(Sender: TObject);
begin
    SayHello(TRobot.create);
end;

//进一步修改
unit uSayHello;

interface

uses    
    SysUtils,
    Windows,
    Messages,
    Greaphics,
    Controls,
    Forms,
    Dialogs;

type 

IGreetable = interface
    ['|0000-0000-0000-0000|']
    function SayHello: PChar;
end;

TMan = class(TInterfacedObject,IGreetable)
    Language: string;
    Married: Boolean;
    Name: string;
    SkinColor: string;
    constructor create; virtual;
    function SayHello: PChar; virtual; abstract;
end;

TChinese = class(TMan)
public  
    constructor create; override;
private
    function SayHello: PChar; override;
end;

TAmerican = class(TMan)
public
    constructor create; override;
private 
    function SayHello: PChar; override;
end;

TFrnch = class(TMan)
public
    constructor create; override;
private
    function SayHello: pchar ;override;
end;

TKorean = class(TMan)
public
    constructor create; override;
private
    function SayHello: pchar ; override;
end;

TET = class(TInterfacedObject,IGreetable)
private
    function SayHello: pchar;
end;

TRobot = class(TInterfacedObject,Igreetable)
private
    function SayHello: pchar;
end;

implementation

constructor TMan.create;
begin
  Name := '张三';
  Language := '中文';
  SkinColor := 'yellow';
end;

constructor TChinese.create;
begin
    inherited;
end;

constructor TAmerican.create;
begin
    Name := 'Lee';
    Language := 'English';
    SkinColor := 'black';
end;

constructor TFrnch.create;
begin
    Name:='苏菲';
    Language := '法文';
    SkinColor := 'white';
end;

constructor TKorean.create;
begin
    Name := '韩国';
    Language := '韩文';
    SkinColor := 'yellow';
end;

function TChinese.SayHello;
begin
    result := '中国人:你好!';
end;

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

function TFrench.SayHello;
begin
    result := '法国人:你好';
end;

function TKorean.SayHello;
begin   
    result := '韩国人:你好';
end;

function TET.SayHello;
begin
    result := 'TET:你好';
end;

function TRobot.SayHello;
begin
    result := 'Robot:你好';
end;

unit uFromSayHello

uses    
    //...

type
TFormSayHello = class(TForm)
    btnUSA: TButton;
    btnKorean: TButton;
    btnCN: TButton;
    btnFrench: TButton;
    btnET: TButton;
    btnRobott: TButton;
    procedure btnUSAClick(Sender: TObject);
    procedure btnKoreanClick(Sender: TObject);
    procedure btnCNClick(Sender: TObject);
    procedure btnFrenchClick(Sender: TObject);
    procedure btnETClick(Sender: TObject);
    procedure btnRobottClick(Sender: TObject);
end;

procedure TFormSayHello.SayHello(greeting: IGreetable);
begin
    ShowMessage(greeting.SayHello);
end;

//人类问候
procedure TFormSayHello.SayHello(AMan: TMan)
begin
    editName.text := AMan.Name;
    editLanguage.text := AMan.Language;
    editSkinColor.text := AMan.SkinColor;
    ShowMessage(AMan.SayHello);
end;

//这里新增来自非人类的另类问候方式.
//通过方法重载,使得程序的改动降低到最少.
procedure TFormSayHello.SayHello(greeting: Igreetable)
begin
    editName.text := copy(greeting.SayHello,1,6);
    editLanguage.text := copy(greeting.SayHello,7,4);
    editSkinColor.text := copy(greeting.SayHello,11,6);
    ShowMessage(greeting.SayHello);
end;

procedure TFormSayHello.btnKoreanClick(Sender: TObject);
begin
    SayHello(TKorean.create);
end;

procedure TFormSayHello.btnCNClick(Sender: TObject);
begin
    SayHello(TChinese.create);
end;

procedure TFormSayHello.btnFrenchClick(Sender: TObject);
begin
    SayHello(TFrench.create);
end;

procedure TFormSayHello.btnETClick(Sender: TObject);
begin
    SayHello(TET.create);
end;

procedure TFormSayHello.btnRobottClick(Sender: TObject);
begin
    SayHello(TRobot.create);
end;

 

转载于:https://www.cnblogs.com/YiShen/p/9865669.html

weixin_30753873
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
delphi 接口--3
流年~~
04-05 2657
1.1 为什么使用接口？      举个例子好了：有这样一个卖票服务，电影院可以卖票，歌剧院可以卖票，客运站也可以卖票，那么我们是否需要把电影院、、歌 剧院和客运站都设计成一个类架构以提供卖票服务？要知道，连经理人都可以卖票，很显然不适合把经理人也包括到卖票服务的继承架构 中，我们需要的只是一个共通的卖票服务。于是，卖票的服务是个接口，电影院、歌剧院什么的只要都遵循这样一个服务定义就能很好地
delphi 接口
热门推荐
流年~~
03-24 1万+
学习 delphi 接口 一切都是纸老虎！！！ 第四章          接口  前不久，有位搞软件的朋友给我出了个谜语。谜面是“相亲”，让我猜一软件术语。我大约想了一分钟，猜 出谜底是“面向对象”。我觉得挺有趣，灵机一动想了一个谜语回敬他。谜面是“吻”，也让他猜一软件术 语。一分钟之后，他风趣地说：“你在面向你美丽的对象时，当然忍不住要和她接口！”。我们同时哈哈大 笑起来。谈笑间，似
Delphi中的接口
在0与1之间的博客
07-24 1384
第一章在Delphi中使用接口 1.1 定义接口：目的：什么是接口，以及和抽象类的关联以及不同点。抽象类（备注理解接口最简单的方法）永远不能创建一个抽象类的实例；本身不能实现功能，依靠派生类实现；接口被申明为interface类型。接口名从字母I开始。类类型名从T开始。所有的接口从IUnknown继承；不能创建接口实例；不能在接口中指定范围指示。所有的方法都是公有型（public），不能在接口中申
Delphi 接口(1)
aishizhuang1602的博客
10-27 121
代码如下: unit Unit2; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Unit1, Vcl...
Delphi Interface接口的定义
FantasyWind-奇风的悟道之地
09-02 1946
type   InterfaceName = interface(ancestorInterface)     ['{GUID}']     memberList   end; 接口定义中ancestorInterface 和 GUID是可选的。 在大多数方面，接口声明和类声明相似，但有以下限制：   1.memberList只能包含方法和属性，而不能包含数据成员(field).
Delphi接口和面向对象的编程实例..rar
04-15
综上所述，Delphi中的接口和面向对象编程结合使用，能帮助开发者创建更加灵活、健壮和易于维护的软件系统。通过理解并熟练掌握这些概念，开发者可以更好地利用Delphi的强项，提升软件开发的效率和质量。在提供的...
Delphi面向对象编程思想刘艺(PDF)
10-09
作者刘艺以其丰富的经验和深厚的理论功底，系统地阐述了面向对象编程的基本概念、原则以及在Delphi中的实际应用。这本书对于想要提升Delphi编程技能，尤其是对面向对象编程有浓厚兴趣的读者来说，是一份宝贵的资源。...
计算机软件-编程源码-面向对象软件构造-Delphi技术资料.zip
05-25
Delphi是一款强大的集成开发环境（IDE），它以其高效的编译器和与Visual Component Library（VCL）框架的紧密集成而闻名，是进行面向对象编程的理想工具，尤其适合创建Windows应用程序。 在Delphi中，面向对象编程...
delphi面向对象编程思想PDF电子书
01-18
《Delphi面向对象编程思想》是由刘艺编著的一本深入探讨面向对象编程在Delphi环境中的应用的书籍。这本书因其深入浅出的讲解和实用的示例，曾深受程序员们的喜爱，虽然现在已经绝版，但其PDF版本仍然在开发者之间...
delphi面向对象编程思想光盘
07-27
《Delphi面向对象编程思想》是一本专注于介绍如何在Delphi环境下运用面向对象编程的书籍。面向对象编程（Object-Oriented Programming，OOP）是一种强大的软件开发方法，它通过将数据和操作数据的方法封装在对象中，...
Delphi 的接口
herlockkn的专栏
11-19 1589
Delphi 的接口(1) - 接口的简单解释 简单地说接口就是定义了方法和属性的空架子（术语为方法签名，包括函数和过程），属性本身也是存过程和取函数，即也是方法，在接口定义中所有成员都是默认的PUBLIC，没有数据成员。这些方法由继承它的子类来实现，这个子类只能有一个而且必须有一个父类，却可以有多个父接口。 接口可以连接完全不同的类对某一共同操作的桥梁，比如，“跑”这个操作，如果要用类继承，
Delphi接口使用实例介绍
chinmusam的专栏
06-16 3409
对于Object Pascal语言来说，最近一段时间最有意义的改进就是从Delphi3开始支持接口(interface)，接口定义了能够与一个对象进行交互操作的一组过程和函数。对一个接口进行定义包含两个方面的内容，一方面是实现这个接口，另一方面是定义接口的客户。一个类能实现多个接口，即提供多个让客户用来控制对象的“表现方式”。 正如名字所表现的，一个接口就是对象和客户通信的接口。这个概念像
Delphi接口
qiume的专栏
03-02 1425
type IInterface = interface [{00000000-0000-0000-C000-000000000046}] //接口的GUID function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall; function _AddRef: Integer; std
Delphi 接口使用
weixin_34401479的博客
01-13 301
2019独角兽企业重金招聘Python工程师标准>>> ...
关于面向接口编程
u011212549的博客
08-29 1168
面向接口编程（很重要的一种编程思想）： 优点：松耦合，可以达到类似于插座的效果（热插拨）。 在spring的jdbc编程中，在引入数据库连接池的部分就做到了面向接口编程，以后无论换什么数据库连接池都不用修改代码 直接修改配置文件即可。可以屏蔽到大量的底层操作，这种编程方式在框架中得到广泛的应用,例如spring内部完全就 是面向接口编程的。         如果不大量采用面向接口编程，框
使用delphi开发一个接口
最新发布
weixin_42601134的博客
01-05 310
当你想使用 Delphi 开发一个接口时，你可以使用 Delphi 的组件和对象来创建接口。你也可以使用 Delphi 的 VCL (Visual Component Library) 来创建图形用户界面 (GUI)，并在 GUI 中添加按钮、文本框和其他控件，使用这些控件来构建你的接口。 例如，你可以创建一个窗体，在窗体上添加文本框和按钮，然后使用 Delphi 的事件处理机制来处理用户的输入和...
Delphi 接口(5)-接口与类型转换
aishizhuang1602的博客
10-27 294
//接口与类型转换 type IFoot: interface ['|0000-0000-0000-0000|'] end; IBall = interface ['|0000-0000-0000-0001|'] end; TFootball = calss(TinterfacedObject,IFoot,IBall) end; implement...
delphi 根据接口获取对象实例
05-08 470
obj=TObject(intf);即可。 然后就可以obj.classname得知实例类名。进而可以得知实例所拥有的所有接口名。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值