关于类的入门例子(4): property

//类单位
unit Person;

interface

type
  TPerson = class(TObject)
  private
    FName: string;
    FAge: Integer;
  public
    procedure SetName(const strName: string);
    procedure SetAge(const intAge: Integer);
    property Name: string read FName write SetName;
    property Age: Integer read FAge write SetAge;
  end;

implementation

{ TPerson }

procedure TPerson.SetName(const strName: string);
begin
  FName := strName;
end;

procedure TPerson.SetAge(const intAge: Integer);
begin
  if intAge<0 then FAge := 0  else FAge := intAge;
end;

end.

---

//测试:
uses Person;

procedure TForm1.Button1Click(Sender: TObject);
var
  PersonOne: TPerson;
begin
  PersonOne := TPerson.Create;

  PersonOne.Name := '万一';
  PersonOne.Age := 100;

  ShowMessage('姓名:' + PersonOne.Name + '; 年纪:' +
    IntToStr(PersonOne.Age));  //姓名:万一; 年纪:100

  PersonOne.Free;
end;

 

来自：http://bbs.delphihome.net/thread-18492-1-1.html

 

简单地说 就是通过类的成员方法 SetName SetAge 修改或访问  read FAge write SetAge; 这两个变量。从而实现对类的属性Age操作。 

还有一个技巧，就是把光标放在类代码里，再按快捷键 会按照property 自动生成类的成员函数 ctrl + shift + c