Delphi知识中心
www.delphi.ee
提供Delphi技术知识
与Delphi程序员共同进步


在线服务QQ:99923144 随时恭候您的光临
首页 基础知识 WIN系统 组件使用 组件开发 数据库 ACTIVEX 多媒体技术 网络技术 关于
文章类别:ACTIVEX    你尚未登陆,会员功能无法使用,请从 网站首页 登陆。
  Delphi接口开发教程(5)  
 
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
  function Func(a,b: Integer): Integer;
 end;

 TAdd = class(TInterfacedObject, IMyInterface1)
 public
  function Func(a: Integer; b: Integer): Integer;
  destructor Destroy; override;
 end;

 TMul = class(TInterfacedObject, IMyInterface1)
 public
  function Func(a: Integer; b: Integer): Integer;
  destructor Destroy; override;
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

{ TAdd }

destructor TAdd.Destroy;
begin
 ShowMessage(‘TAdd.Destroy’);
 inherited;
end;

function TAdd.Func(a, b: Integer): Integer;
begin
 Result := a + b;
end;

{ TMul }

destructor TMul.Destroy;
begin
 ShowMessage(‘TMul.Destroy’);
 inherited;
end;

function TMul.Func(a, b: Integer): Integer;
begin
 Result := a * b;
end;

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var
 I: IMyInterface1;
begin
 I := TAdd.Create;
 ShowMessage(IntToStr(I.Func(9, 9))); {18}

 I := TMul.Create; {I 在指向新的目标前会先释放前面所属的类}
 ShowMessage(IntToStr(I.Func(9, 9))); {81}
end;

end.

 

在线服务QQ:99923144 Delphi程序员QQ群(139442)
Delphi知识中心 www.delphi.ee 最专业的Delphi技术资料网站