程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> Delphi 的接口(5) - 一樣的接口、不一樣的實現

Delphi 的接口(5) - 一樣的接口、不一樣的實現

編輯:Delphi

代碼文件:

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.

  

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved