Delphi的接口(4)

代码文件:

unit Unit1;

interface

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

type
 TForm1 = class(TForm)
  Button1: TButton;
  procedure Button1Click(Sender: TObject);
 end;

 {此接口声明了一个 Name 属性; 因为接口没有字段, read/write 都只能 从方法}
 IMyInterface = interface
  function GetName : string;
  procedure SetName(val : string);
  property Name : string read GetName write SetName;
 end;

 {类实现的是接口的读写方法, 属性还是属于接口的; 类可以提供一个储存属 性的字段}
 TMyClass = class(TInterfacedObject, IMyInterface)
 private
  FName: string;
 public
  function GetName: string;
  procedure SetName(val: string);
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

{ TMyClass }

function TMyClass.GetName: string;
begin
 Result := FName;
end;

procedure TMyClass.SetName(val: string);
begin
 FName := val;
end;

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var
 c: TMyClass;
 i: IMyInterface;
begin
 c := TMyClass.Create;
 i := c;
 i.Name := 'ABC';
 ShowMessage(i.Name); {ABC}

 //没有一个 c.Name 存在, 这个属性只属于接口
end;

end.

时间: 2016-12-12

Delphi的接口(4)的相关文章

Delphi的接口(2)

第一个例子的操作实况录像: http://www.bianceng.net/delphi/201212/657.htm 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton;

Delphi的接口(1)

之前, 有朋友夸过我: 博文通俗易懂, 能把复杂的问题简单化; 希望我对接口的理解也能对大家有所帮助; 不过其中个人理解的成分多些, 错 误之处万望指出. "接口" 的概念和 "类" 特别是 "抽象类" 近似, Delphi 之初并没有接口, 后来(Delphi 3)为了支持 COM 引入了接口, 再 后来发展成为 Delphi 重要的语言特性. 应该先简单了解点 COM, 说到 COM, 能让我想到 "有心栽花花不活, 无 意插柳柳成

基于Delphi的接口编程入门

为什么使用接口? 举个例子好了:有这样一个卖票服务,电影院可以卖票,歌剧院可以卖票,客运站也可以卖票,那么我们是否需要把电影院..歌剧院和客运站都设计成一个类架构以提供卖票服务?要知道,连经理人都可以卖票,很显然不适合把经理人也包括到卖票服务的继承架构中,我们需要的只是一个共通的卖票服务.于是,卖票的服务是个接口,电影院.歌剧院什么的只要都遵循这样一个服务定义就能很好地相互交互和沟通(如果须要的话). 如何在Delphi中使用接口 1.声明接口 IMyInterface = interface(

Delphi的接口(3)

代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; procedure Button1Click(S

Delphi的接口(5)

代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); end; IMyInterface1 = interface functi

Delphi ListView快速操作通用实现之实现篇

众所周知,Delphi ListView类直接进行Add.Update.Delete操作的速度是比较慢的,尤其是当数据量较 大时,比如数据量达到5000.10000.50000时,速度真是可以说是"慢得惊人".其实快速操作的方法非常简 单,就当大家都知道了.在本人的工作中,很多项目都用到ListView,并且对速度的响应要求比较高,于是发 生了快速操作ListView的代码散布于多个项目大量模块中的问题,并且,当界面层数据显示要求发生改变时, 自然发生"重复性代码的通用问题&

018_《Delphi下深入Windows核心编程》

<Delphi下深入Windows核心编程> Delphi 教程 系列书籍 (018) <Delphi下深入Windows核心编程> 网友(邦)整理 EMail: [email protected] 下载地址: Part1 Part2 Part3     书名: Delphi下深入Windows核心编程 作者: 飞思科技产品研发中心 出版社: 电子工业出版社 书号: 7505384023 出版日期:2003年1月 开本: 787*1092 1/16 页码: 525 版次: 2003年1

.net Winform程序调用delphi编写的dll出错,求救!!

问题描述 winform调用delphi的dll,delphi里面的代码是连接远程服务器,发送过来数据,并在dll里处理接收.我在.net用委托调用delphi的接口方法,获取到了delphi传过来的实时数据,但是在获取到6分钟的时候就不获取了,连接都正常,也不报错,找不到原因,求高手解决!!Winform代码:.net声明调用dll:处理回来数据的方法,目前什么都不做:delphi接口代码:入口:触发事件调用的方法:处理数据方法:声明的委托:现在已经将delphi的代码封装成dll,但是.ne

C#调用Delphi写的dll的问题。

问题描述 有这样一个Delphi原型接口.声明如下TArrayOfByte=arrayofByte;functionGetTemplateFromFile(imgPath:PAnsiChar;varATemplate:TArrayOfByte):Integer;stdcall;ATemplate这个参数是一组Byte数组,但这数组的大小是在接口即GetTemplateFromFile函数里分配的.通常情况下返回4096个字节.但我引用C#调用时,发现只返回一个字节.C#声明方式如下.[DllIm