property

interface

type
  TPerson = class(TObject)
  private       //私有域
    FName: string;
    FAge: Integer;
    procedure SetName(const strName: string);
    procedure SetAge(const intAge: Integer);
  public         //公有域
    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;