用Pascal创建类

type
  TPerson = class
  private
    FName: string;
    FAge: Integer;
  public
    constructor Create(AName: string; AAge: Integer);
    procedure SetName(AName: string);
    function GetName: string;
    procedure SetAge(AAge: Integer);
    function GetAge: Integer;
  end;

constructor TPerson.Create(AName: string; AAge: Integer);
begin
  FName := AName;
  FAge := AAge;
end;

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

function TPerson.GetName: string;
begin
  Result := FName;
end;

procedure TPerson.SetAge(AAge: Integer);
begin
  FAge := AAge;
end;

function TPerson.GetAge: Integer;
begin
  Result := FAge;
end;

var
  Person: TPerson;
begin
  Person := TPerson.Create('Alice', 30);
  WriteLn('Name: ', Person.GetName);
  WriteLn('Age: ', Person.GetAge);
  Person.SetName('Bob');
  Person.SetAge(25);
  WriteLn('Updated Name: ', Person.GetName);
  WriteLn('Updated Age: ', Person.GetAge);
end.