Delphi Éè¼Æģʽ£º¡¶HeadFirstÉè¼Æģʽ¡·Delphi´úÂë

Ò»¡¢Ò»¸ö½ÐÉù½Ó¿ÚºÍ¼¸Ö»Ñ¼×Ó
1¡¢´ÓÒ»¸ö½ÐÉù½Ó¿Ú¿ªÊ¼
{¡¶HeadFirstÉè¼Æģʽ¡·Delphi´úÂë֮ģʽС½á }
{ Ò»¸ö½ÐÉù½Ó¿Ú }
{ ±àÒ빤¾ß£ºDelphi2010 for win32 }
{ E-Mail £ºxshlife@163.com }

unit uQuackable;

interface

type
IQuackable = interface(IInterface)
procedure Quack;
end;

implementation

end.

2¡¢¼¸Ö»Ñ¼×ÓʵÏÖÁ˸ýÐÉù½Ó¿Ú¡£
{¡¶HeadFirstÉè¼Æģʽ¡·Delphi´úÂë֮ģʽС½á }
{ ¼¸Ö»Ñ¼×ÓʵÏÖÁËÉù½Ó¿Ú }
{ ±àÒ빤¾ß£ºDelphi2010 for win32 }
{ E-Mail £ºxshlife@163.com }

unit uDuck;

interface

uses
uQuackable;

type
TMallardDuck = class(TInterfacedObject, IQuackable)
public
procedure Quack;
end;

TRedHeadDuck = class(TInterfacedObject, IQuackable)
public
procedure Quack;
end;

TDuckCall = class(TInterfacedObject, IQuackable)
public
procedure Quack;
end;

TRubberDuck = class(TInterfacedObject, IQuackable)
public
procedure Quack;
end;

implementation

{ TMallardDuck }

procedure TMallardDuck.Quack;
begin
Writeln('Quack');
end;

{ TRedHeadDuck }

procedure TRedHeadDuck.Quack;
begin
Writeln('Quack');
end;

{ TDuckCall }

procedure TDuckCall.Quack;
begin
Writeln('Kwak');
end;

{ TRubberDuck }

procedure TRubberDuck.Quack;
begin
Writeln('Squeak');
end;

end.

3¡¢½ÐÉù½Ó¿ÚΪѼÃùÆ÷Ìṩ·þÎñ¡£½ÐÉù½Ó¿ÚÓëѼÃùÆ÷µÄ¹Øϵ±ÈÓëËüµÄʵÏÖÀà¸üÃÜÇС£
{¡¶HeadFirstÉè¼Æģʽ¡·Delphi´úÂë֮ģʽС½á }
{ ѼÃùÄ£ÄâÆ÷ }
{ ±àÒ빤¾ß£ºDelphi2010 for win32 }
{ E-Mail £ºxshlife@163.com }

unit uDuckSimulator;

interface

uses
uQuackable, uDuck;

type
TDuckSimulator = class(TObject)
private
procedure Simulate(aDuck: IQuackable); overload;
public
procedure Simulate; overload;
end;

implementation

{ TDuck