usayhello.pas

Delphi面向对象编程思想附书源码 好用哦！

unit uSayHello;

interface

type

   IGreetable= interface
        ['{D91DDE09-0FC4-4FE9-AE0D-9877E2F73BF6}']
      function SayHello:PChar;
    end;

  TMan = class (TInterfacedObject,IGreetable)
  public
    Language: string;
    Married: Boolean;
    Name: string;
    SkinColor: string;
    constructor create; virtual;
    function SayHello:PChar;virtual;abstract;
  end;

  TChinese = class (TMan)
  public
    constructor create;override;
  private
    function SayHello:PChar;override;
  end;

  TAmerican = class (TMan)
  public
    constructor create;override;
  private
    function SayHello:PChar;override;
  end;

  TFrench = class (TMan)
  public
    constructor create;override;
  private
    function SayHello:PChar;override;
  end;

  TKorean = class (TMan)
  public
    constructor create;override;
  private
    function SayHello:PChar;override;
  end;

  TET = class (TInterfacedObject,IGreetable)
  private
    function SayHello:PChar;
  end;

  TRobot = class (TInterfacedObject,IGreetable)
  private
    function SayHello:PChar;
  end;

implementation

constructor TMan.create;
begin
  Name:='张三';
  Language:='中文';
  SkinColor:='黄色';
end;

constructor TChinese.create;
begin
  inherited;
end;

constructor TAmerican.create;
begin
  Name:='Lee';
  Language:='英文';
  SkinColor:='黑色';
end;

constructor TFrench.create;
begin
  Name:='苏菲';
  Language:='法文';
  SkinColor:='白色';
end;

constructor TKorean.create;
begin
  Name:='金知中';
  Language:='韩文';
  SkinColor:='黄色';
end;

function TChinese.SayHello;
begin
  Result:='chinese.bmp';
end;

function TAmerican.SayHello;
begin
  Result:='American.bmp';
end;

function TFrench.SayHello;
begin
  Result:='French.bmp';
end;

function TKorean.SayHello;
begin
  Result:='Korean.bmp';
end;

function TET.SayHello;
begin
  Result:='ET.bmp';;
end;

function TRobot.SayHello;
begin
  Result:='Robot.bmp';;
end;

end.