11.8.pas

delphi renyuanguanlixinxioxitong

program Project1;
{$APPTYPE CONSOLE}
type
  TPerson = class // 人员类
public
  Name:string; // 姓名
  function GetAge:Integer; // 获取年龄
  procedure SetAge(A:Integer); // 设置年龄
private
  Age:Integer; // 年龄
end;
TEmployee = class(TPerson) // 职员类
Public
 Salary:integer; // 薪金
 DeptName: string; // 部门名称
 procedure Infor; // 显示职员信息
 procedure SetSalary(A:Integer); // 设置薪水
end;
TCustomer = class(TPerson) // 顾客类
public
 AddressName: string; // 地址名称
 procedure Infor; // 显示顾客信息
 constructor Create(Str: string);
 destructor Destroy;override;
end;
function TPerson.GetAge:Integer; // 获取人员的年龄
begin
  Result:=Age;
end;
procedure TPerson.SetAge(A:Integer);// 设置人员的年龄
begin
  Age:=A;
end;
procedure TEmployee.SetSalary(A:Integer);// 设置职员薪水
begin
  Salary:=A;
end;
procedure TEmployee.Infor; // 显示职员的信息
begin
  Writeln('姓名：',Name,' 年龄：',GetAge,' 部门：',DeptName,' 薪水：',Salary);
end;
procedure TCustomer.Infor; // 显示顾客的信息
begin
  Writeln('姓名：',Name,' 年龄：',GetAge,' 住址：',AddressName);
end;
constructor TCustomer.Create(Str: string); // 顾客类的构造函数
begin
  inherited Create; // 调用父类的构造函数
  Writeln('顾客类的构造函数。');
  AddressName:=Str;
end;
destructor TCustomer.Destroy; // 顾客类的析构函数
begin
  Writeln ('姓名为：',Name, ' 的顾客类对象被删除。' );
  inherited Destroy; // 调用父类的析构函数
end;
var
E1: TEmployee; // 声明一个职员类的变量
C1: TCustomer; // 声明一个顾客类的变量
begin
E1:=TEmployee.Create; // 调用默认的构造函数创建对象
E1.Name:=' 王洪';
E1.SetAge(21);
E1.SetSalary(2000);
E1.DeptName:='贷款部';
E1.Infor; // 显示职员信息
E1.Destroy; // 调用默认的析构函数
C1:=TCustomer.Create(' 北一路'); // 调用构造函数创建对象
C1.Name:=' 李伟';
C1.Age:=46;
// 显示顾客信息
C1.Infor; // 显示顾客信息
C1.Destroy; // 调用自定义的析构函数
readln;
end.