ucreatemanclass.pas

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

unit uCreateManClass;

interface

uses
  Dialogs;

type
  TSkinColor=(scWhite,scYellow,scBlack,scDark);  //'白色','黄色','黑色','深色'
  TMan = class (TObject)
  private
    FAge: Integer;
    FLanguage: string;
    FMale: Boolean;
    FName: string;
    FSkinColor: TSkinColor;
    FValidData: Boolean;
    function GetAge: Integer;
    function GetColor: TSkinColor;
    function GetLanguage: string;
    function GetMale: Boolean;
    function GetName: string;
    procedure SetAge(Value: Integer);
    procedure SetColor(Value: TSkinColor);
    procedure SetLanguage(Value: string);
    procedure SetMale(Value: Boolean);
    procedure SetName(Value: string);
  public
    function retrieve: Boolean;
    function save: Boolean;
    procedure sayHello(words:pchar);
    property Age: Integer read GetAge write SetAge;
    property Language: string read GetLanguage write SetLanguage;
    property Male: Boolean read GetMale write SetMale;
    property Name: string read GetName write SetName;
    property SkinColor: TSkinColor read GetColor write SetColor;
    property ValidData: Boolean read FValidData write FValidData;
  end;
  

implementation

{
************************************* TMan *************************************
}


function TMan.GetAge: Integer;
begin
  result:=FAge;
end;

function TMan.GetColor: TSkinColor;
begin
  result:=FSkinColor;
end;

function TMan.GetLanguage: string;
begin
  result:=FLanguage;
end;

function TMan.GetMale: Boolean;
begin
  result:=FMale;
end;

function TMan.GetName: string;
begin
  result:=FName;
end;

function TMan.retrieve: Boolean;
begin
end;

function TMan.save: Boolean;
begin
end;

procedure TMan.sayHello(words:pchar);
begin
  showmessage(words);
end;

procedure TMan.SetAge(Value: Integer);
begin
  if (Value>0) and (Value<120) then FAge:=Value
  else  FValidData:=False;
end;

procedure TMan.SetColor(Value: TSkinColor);
begin
  if (Value <> FSkinColor) then FSkinColor:=Value;
end;

procedure TMan.SetLanguage(Value: string);
begin
  if (Value <> FLanguage) then FLanguage:=Value;
end;

procedure TMan.SetMale(Value: Boolean);
begin
  if (Value <> FMale) then FMale:=Value;
end;

procedure TMan.SetName(Value: string);
begin
  if (Value <> FName) then FName:=Value;
end;


end.