usayhello.pas

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

unit uSayHello;

interface

type
  TMan = class (TObject)
  public
    Language: string;
    Married: Boolean;
    Name: string;
    SkinColor: string;
    constructor create; virtual;
    function SayHello:string;virtual;
  end;

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

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

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

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

implementation

{
************************************* TMan *************************************
}
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 TMan.SayHello;
begin
  Result:='chinese.bmp';
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;

end.