ucreatemanclass.pas

来自「Delphi面向对象编程思想附书源码 好用哦！」· PAS 代码 · 共 50 行

unit uCreateManClass;

interface

uses
  Dialogs;

type
  TMan = class (TObject)
  private
    FAge: Integer;
    procedure SetAge(Value: Integer);
  public
    Language: string;
    Married: Boolean;
    Name: string;
    SkinColor: string;
    constructor create; overload;
    property Age: Integer read FAge write SetAge;
    procedure sayHello(words:pchar);
  end;


implementation

{
************************************* TMan *************************************
}
constructor TMan.create;
begin
  Name:='张三';
  Language:='中文';
  SkinColor:='黄色';
  FAge:=20;
  Married:=True;
end;

procedure TMan.SetAge(Value: Integer);
begin
  if Value<2 then FAge:=0
  else FAge:=Value;
end;

procedure TMan.SayHello(Words:PChar);
begin
   showmessage(words);
end;

end.