{*******************************************************}
{ ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? }
{ ? ? ? 業(yè)務(wù)邏輯一 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?}
{ ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? }
{ ? ? ? 版權(quán)所有 (C) 2008 陳新光 ? ? ? ? ? ? ? ? ? ? ? ?}
{ ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? }
{*******************************************************}

unit Hello1;

interface

uses
? Dialogs;

procedure SayHello;

implementation

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

end.
{*******************************************************}
{ ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? }
{ ? ? ? 業(yè)務(wù)邏輯二 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?}
{ ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? }
{ ? ? ? 版權(quán)所有 (C) 2008 詠南工作室 ? ? ? ? ? ? ? ? ? ?}
{ ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? }
{*******************************************************}

unit Hello2;

interface

uses
? Dialogs;

procedure SayHello2;

implementation

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

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

unit InterFace1;

interface

uses
? Hello1,Hello2;

procedure Say1;
procedure Say2;

implementation

procedure Say1;
begin
? SayHello;
end;

procedure Say2;
begin
? SayHello2;
end; ?

end.
{*******************************************************}
{ ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? }
{ ? ? ? 主程序 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?}
{ ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? }
{ ? ? ? 版權(quán)所有 (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.

總結(jié)

以上是生活随笔為你收集整理的面向过程的门面模式的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。