Delphi中Interface接口的使用方
来源:互联网 发布:网络信息安全基础知识 编辑:程序博客网 时间:2024/06/12 00:40
//转自 http://blog.csdn.net/delphi1234/archive/2008/02/20/2110095.aspx
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
type
//定义接口如果接口独立成一个文件,则在应用程序中和实现程序中都要引用该接口文件;
ICar = interface (IInterface)
['{ED52E264-6683-11D7-B847-001060806215}']
procedure drive;
end;
//接口实现类1,一定要加入TinterfacedObject才能使用;
TCar = class(TInterfacedObject,ICar)
public
procedure drive;
end;
//接口实现类2,一定要加入TinterfacedObject才能使用;
THouseCar = class(TInterfacedObject,ICar)
public
procedure drive;
end;
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
function getCar:ICar; //此处可用别的方式来实现获取ICAR,如放在DLL文件中;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{ TCar }
procedure TCar.drive;
begin
ShowMessage('TCar.drive');
end;
{ THouseCar }
procedure THouseCar.drive;
begin
ShowMessage('THouseCar.drive');
end;
procedure TForm1.Button1Click(Sender: TObject);
var
s:ICar;
begin
s:= getCar;
s.drive;
end;
function TForm1.getCar:ICar;
begin
Result:=THouseCar.Create; //此处为整个实现的关键点;
//或Result:=TCar.Create;
end;
end.
- Delphi中Interface接口的使用方
- Delphi中Interface接口的使用方法
- Delphi中Interface接口的使用方法
- Delphi Interface接口的定义
- Android中接口(Interface)的简单使用
- Android中接口(Interface)的简单使用
- 接口 Interface的使用
- delphi中Ihtmldocument2接口的使用
- java 接口interface的使用
- 接口interface的使用(一)
- Java中接口(Interface)的定义和使用
- 关于Delphi中Interface的作用
- AIDL中使用Interface接口回调
- interface的作用,什么情景下适合使用接口interface?
- Delphi实现DLL导出的Interface如何在其实语言中使用
- Delphi中TWebBrowser的使用,实现IDocHostUIHandler接口
- C#中接口(interface)的理解
- C#中接口(interface)的理解
- all- Integrated fixture design and analysis system based on service-oriented architecture [manufacturing]
- illustrator cs2 文字环绕方法:
- 类的嵌套以及类的私有构造函数
- test
- Java Math 类中的新功能,第 1 部分: 实数
- Delphi中Interface接口的使用方
- JS滚动图片代码(含横向和纵向)
- C/C++笔试、面试题目大汇总
- DefaultProperty("Text"), ToolboxData
- client use server value
- Delphi 灵活运用接口(interface), 隐藏核心代码, 设计低耦合程序.
- 用VC++实现不规则窗口
- test
- 有关云计算的几点个人看法