Delphi Interfaces
http://www.delphibasics.co.uk/Article.asp?Name=Interface
The reason for interfaces | |||||
Classes that extend another class can be called sub-classes. For example, you might extend a bicycle class to have mountain bike, and child bike sub-classes. They inherit a lot of the common functions of the general bicycle class, but add unique features, such as stabilizer wheel options for the child bike. You can call bicycle methods, knowing that they apply generally to all types of bicycle. |
|||||
This is a traditional, standard use for classes, since the sub-classes are just variations on a theme. But supposing you had an application where you had bicycle class objects, car objects, washing machine objects and so on. And in this application, you wanted each such class to have the following method: |
|||||
|
|||||
that would let you know if the object contained recyclable materials. You could define a high-level class containing this method, and define all of the classes from it. Or you could simply add the method to each sub class. |
|||||
Or you could use interfaces. Interfaces simply tidy up this situation. By defining an interface that groups these common methods, it sets a standard for all of the classes that implement the interface. It makes it easier for the programmer to be disciplined in developing the application; all of the classes have an additional set of methods that are identical. And Delphi insists that all of the methods in an interface are implemented. |
|||||
Going back to the recyclable object scenario, each sub-class inherits common function from its particular parent class. This describes the basic structure of the sub-class. It also inherits (by implementation) common function that cut across all classes. |
|||||
An interface example | |||||
Like many ideas, an example is the best way to illustrate the concepts. We'll do it in stages to keep things as simple as possible. |
|||||
First, let us define a car class: |
|||||
|
|||||
This class is defined by default based on TObject since we have not specified a base class type. |
|||||
This class has two properties, and a constructor, shown here: |
|||||
|
|||||
Here we set the two properties of the car : its name and age. The name is passed as a parameter, and we set a default age of 0. |
|||||
Now we'll define another class - a bicycle class: |
|||||
|
|||||
This class has two properties, and a constructor, shown here: |
|||||
|
|||||
This class is a little different from the car class, enough to show that we could not have based the car on the bicycle or the bicycle on the car. |
|||||
Now we'll define an interface that says whether a class object is recyclable: |
|||||
|
|||||
Our interface uses the standard IInterface interface definition as a base. Interfaces definitions are like class definitions with all abstract elements. We do not have to declare them as abstract - they are by default. |
|||||
This interface adds an isRecyclable property to any class that implements it. Every class that implements it will have be guaranteed to have exactly the same way of asking if it is recyclable. This is the power and benefit of interfaces - uniformity across potentially very different classes. |
|||||
Any class can implement as many interfaces as it wants - it can conform to any global standards in effect. |
|||||
Note that we must define the property as using a function - we cannot declare a data field in the interface since interfaces do not contain data. |
|||||
Now let us change our classes to support this interface definition: |
|||||
|
|||||
Note that we place the function used by the interface isRecyclable property in the private section we only want the caller to use the property. |
|||||
(Note by author : when compiling the code, Delphi insists on the presence of the GetIsRecyclable function, but not on the most important part - the property. As far as the author can see, this is not enforcing the salient feature of the interface - the property!). |
|||||
We have now based our class on the TInterfaceObject class, which provides some standard support for classes that implement interfaces. And we have also based our class on IRecyclable, our new interface. |
|||||
But we must also declare the new GetIsRecyclable function: |
|||||
|
|||||
And we must not forget to set this recyclable value. We'll do it crudely here in the constructor: |
|||||
|
|||||
Phew! But we must do the same to the Bicycle class to show the true effect. We'll look at complete code defining and using these classes that you can copy and paste into Delphi, making note to follow the instructions at the start: |
// Full Unit code.
// -----------------------------------------------------------
// You must store this code in a unit called Unit1 with a form
// called Form1 that has an OnCreate event called FormCreate. unit Unit1; interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DateUtils; type
// An interface definition
IRecyclable = Interface(IInterface)
// A single function supporting the property
function GetIsRecyclable : Boolean;
// A single property
property isRecyclable : Boolean read GetIsRecyclable;
end; // Define our Car class
TCar = class(TInterfacedObject, IRecyclable)
private
carName : String;
carAge : Byte;
carIsRecyclable : Boolean;
function GetIsRecyclable : Boolean; // Added for IRecyclable
published
// Car properties
property Name : String
read carName;
property Age : Byte
read carAge
write carAge; // Added for IRecyclable
property isRecyclable : Boolean read GetIsRecyclable; // Car constructor
constructor Create(name : String);
end; // Define our Bicycle class
TBicycle = class(TInterfacedObject, IRecyclable)
private
bikeIsMale : Boolean;
bikeWheelSize : Byte;
function GetIsRecyclable : Boolean; // Added for IRecyclable
published
// Bicycles properties
property isMale : Boolean
read bikeIsMale;
property wheelSize : Byte
read bikeWheelSize
write bikeWheelSize; // Added for IRecyclable
property isRecyclable : Boolean read GetIsRecyclable; // Bicycle constructor
constructor Create(isMale : Boolean; wheelSize : Byte);
end; // The definition of the program form
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end; var
Form1: TForm1; implementation {$R *.dfm} // Constructor implmentation for the car class
constructor TCar.Create(name : String);
begin
// Save the car name and set default age and miles
carName := name;
carAge := ;
carIsRecyclable :=true // Sets the recyclable indicator
end; // Car function required for IsRecyclable attribute
function TCar.GetIsRecyclable : Boolean;
begin
Result := carIsRecyclable;
end; // Constructor implmentation for the bicycle class
constructor TBicycle.Create(isMale : Boolean; wheelSize : Byte);
begin
// Save the passed parameters
bikeIsMale := isMale;
bikeWheelSize := wheelSize;
end; // Bicycle function required for IsRecyclable attribute
function TBicycle.GetIsRecyclable : Boolean;
begin
// We'll asy that only male bicycles are recyclable
if self.isMale
then Result := true
else Result := false;
end; procedure TForm1.FormCreate(Sender: TObject);
var
mumsBike : TBicycle;
dadsCar : TCar;
begin
// Instantiate our bike and car objects
mumsBike := TBicycle.Create(false, );
dadsCar := TCar.Create('Nissan bluebird'); // Ask if each is recyclable
if dadsCar.isRecyclable
then ShowMessage('Dads car is recyclable')
else ShowMessage('Dads car is not recyclable'); if mumsBike.isRecyclable
then ShowMessage('Mums bike is recyclable')
else ShowMessage('Mums bike is not recyclable');
end; end.
The ShowMessage shows the following program output:
Dads car is recyclable
Mums bike is not recyclable
Delphi Interfaces的更多相关文章
- Why we need interfaces in Delphi
http://sergworks.wordpress.com/2011/12/08/why-we-need-interfaces-in-delphi/ Why we need interfaces i ...
- 第二章 使用接口(Using Interfaces)-书籍翻译
PDF预览 下载地址 http://files.cnblogs.com/DKSoft/CodingInDelphi.pdf 1.1. 解耦(Decoupling) All through this b ...
- [Delphi] Delphi版本号对照
VER300 Delphi Seattle / C++Builder Seattle 23 230 (Delphi:Win32/Win64/OSX/iOS32/iOS64/An ...
- Delphi的分配及释放---New/Dispose, GetMem/FreeMem及其它函数的区别与相同
转载自:http://www.cnblogs.com/qiusl/p/4028437.html?utm_source=tuicool 我估摸着内存分配+释放是个基础的函数,有些人可能没注意此类函数或细 ...
- Delphi开发的IP地址修改工具
用Delphi进行开发的,直接修改注册表,需重启电脑后才生效
- Delphi XE5教程3:实例程序
内容源自Delphi XE5 UPDATE 2官方帮助<Delphi Reference>,本人水平有限,欢迎各位高人修正相关错误! 也欢迎各位加入到Delphi学习资料汉化中来,有兴趣者 ...
- delphi 保存网页MHT
delphi 保存网页MHT uses ADODB_TLB, CDO_TLB, ComObj,MSHTML;{$R *.dfm}{能把网页如 WWW.QQ.COM保存为一个单文件 .MHT但不能把 ...
- Delphi GDI+ Library
GDI+ LibraryThis library enables GDI+ functionality for Delphi 2009 and later. It differs from other ...
- Delphi实现HTMLWebBrowser实现HTML界面
HTML的界面有以下特点:图文混排,格式灵活,可以包含Flash.声音和视频等,实现图文声像的多媒体界面,而且易于建立和维护.另外,HTML的显示环境一般机器上都具备,通常不需要安装额外的软件.当然, ...
随机推荐
- Amarino例程无法使用的问题
Serial.begin(9600); 而不是用它的57600
- python定义影像投影
import os import arcgisscripting gp=arcgisscripting.create() coordsys=r"C:\Winx86\ArcGIS\Coordi ...
- 【C++】统计代码覆盖率(三)
报告集成到jenkins才是最终目的,因此又进行了部分资料查找,得到html和xml报告集成jenkins的配置如下: 一 集成html报告 这种方式集成在你已经用gcov+lcov生成了html报告 ...
- 我常用的VBS方法(QTP)
这些是4年前在HP用QTP做自动化测试时候总结的一些,现在贴出来,说不准以后会不会用到 当初花了2天时间写的一个自动生成的Excel Report Public Function Report (st ...
- WCF配置文件全攻略
參考:http://www.cnblogs.com/wayfarer/archive/2007/08/24/867987.html http://www.cnblogs.com/scy251147/a ...
- delphi请求idhttp数据
idhttp ss : TStringStream; begin ss := TStringStream.)); { 指定gb2312的中文代码页,或者54936(gb18030)更好些 utf8 对 ...
- cocos2d-x使用python创建vs模板
cocos2d-x 2.2推荐使用create_project.py创建工程,所有的平台都可以通过这个python文件创建工程.这个文件位置在源码cocos2d-x-2.2.2\tools\proje ...
- 【转】Mysql进程管理
mysql> show processlist; +----+------+-----------+------+---------+------+-------+--------------- ...
- Codeforces Round #367 (Div. 2) B. Interesting drink (模拟)
Interesting drink 题目链接: http://codeforces.com/contest/706/problem/B Description Vasiliy likes to res ...
- spring mvc 数据绑定
1.spring mvc 默认提供的数据绑定类 private List<HandlerMethodArgumentResolver> getDefaultArgumentResolver ...