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

1. ²úÆ·Àà
{¡¶HeadFirstÉè¼Æģʽ¡·¹¤³§Ä£Ê½Ö®¼òµ¥¹¤³§ }
{ ²úÆ·Àà }
{ ±àÒ빤¾ß £ºDelphi7.0 }
{ ÁªÏµ·½Ê½ £ºxshlife@163.com }

unit uProducts;

interface

type
TPizza = class(TObject)
public
procedure Prepare; virtual; abstract;
procedure Bake; virtual; abstract;
procedure Cut; virtual; abstract;
procedure Box; virtual; abstract;
end;

TCheesePizza = class(TPizza)
public
procedure Prepare; override;
procedure Bake; override;
procedure Cut; override;
procedure Box; override;
end;

TVeggiePizza = class(TPizza)
public
procedure Prepare; override;
procedure Bake; override;
procedure Cut; override;
procedure Box; override;
end;

TClamPizza = class(TPizza)
public
procedure Prepare; override;
procedure Bake; override;
procedure Cut; override;
procedure Box; override;
end;

TPepperoniPizza = class(TPizza)
public
procedure Prepare; override;
procedure Bake; override;
procedure Cut; override;
procedure Box; override;
end;

implementation

{ TCheesePizza }

procedure TCheesePizza.Bake;
begin
Writeln('ºæ¿¾ÄÌÓͱÈÈø');
end;

procedure TCheesePizza.Box;
begin
Writeln('½«ÄÌÓͱÈÈø×°ºÐ');
end;

procedure TCheesePizza.Cut;
begin
Writeln('½«ÄÌÓͱÈÈøÇгÉƬ');
end;

procedure TCheesePizza.Prepare;
begin
Writeln('×¼±¸ÄÌÓͱÈÈø');
end;

{ TVeggiePizza }

procedure TVeggiePizza.Bake;
begin
Writeln('ºæ¿¾ËرÈÈø');
end;

procedure TVeggiePizza.Box;
begin
Writeln('½«ËرÈÈø×°ºÐ');
end;

procedure TVeggiePizza.Cut;
begin
Writeln('½«ËرÈÈøÇгÉƬ');
end;

procedure TVeggiePizza.Prepare;
begin
Writeln('×¼±¸ËرÈÈø');
end;

{ TClamPizza }

procedure TClamPizza.Bake;
begin
Writeln('ºæ¿¾¸òòñÈÈø');
end;

procedure TClamPiz