面向過程的門面模式

{*******************************************************}
{ ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? }
{ ? ? ? 業務邏輯一 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?}
{ ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? }
{ ? ? ? 版權所有 (C) 2008 陳新光 ? ? ? ? ? ? ? ? ? ? ? ?}
{ ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? }
{*******************************************************}

unit Hello1;

interface

uses
? Dialogs;

procedure SayHello;

implementation

procedure SayHello;
begin
? ShowMessage('hello one');
end; ?

end.
{*******************************************************}
{ ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? }
{ ? ? ? 業務邏輯二 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?}
{ ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? }
{ ? ? ? 版權所有 (C) 2008 詠南工作室 ? ? ? ? ? ? ? ? ? ?}
{ ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? }
{*******************************************************}

unit Hello2;

interface

uses
? Dialogs;

procedure SayHello2;

implementation

procedure SayHello2;
begin
? ShowMessage('hello two');
end; ?

end.
{*******************************************************}
{ ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? }
{ ? ? ? 接口 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?}
{ ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? }
{ ? ? ? 版權所有 (C) 2008 詠南工作室 ? ? ? ? ? ? ? ? ? ?}
{ ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? }
{*******************************************************}

unit InterFace1;

interface

uses
? Hello1,Hello2;

procedure Say1;
procedure Say2;

implementation

procedure Say1;
begin
? SayHello;
end;

procedure Say2;
begin
? SayHello2;
end; ?

end.
{*******************************************************}
{ ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? }
{ ? ? ? 主程序 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?}
{ ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? }
{ ? ? ? 版權所有 (C) 2008 詠南工作室 ? ? ? ? ? ? ? ? ? ?}
{ ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? }
{*******************************************************}

unit Main;

interface

uses
? Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
? Dialogs,StdCtrls,
? InterFace1;//接口

type
? TForm1 = class(TForm)
? ? btn1: TButton;
? ? btn2: TButton;
? ? procedure btn1Click(Sender: TObject);
? ? procedure btn2Click(Sender: TObject);
? private
? ? { Private declarations }
? public
? ? { Public declarations }
? end;

var
? Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
? Say1;
end;

procedure TForm1.btn2Click(Sender: TObject);
begin
? Say2;
end;

end.
?