Delphi的类与继承
来源：互联网 发布：淘宝达人怎么收取佣金 编辑：程序博客网 时间：2024/06/05 10:10
unit Person_Cls; 2 3 interface 4 5 type 6 Person=class //基类 7 private 8 name:string; //私有变量（姓名，性别，身高，体重） 9 sex:string; 10 year:integer; 11 tall:integer; 12 weight:integer; 13 function get_name:string; //声明返回和设置属性的函数 14 procedure set_name(Value:string); //以下同 15 function get_sex:string; 16 procedure set_sex(Value:string); 17 function get_year:integer; 18 procedure set_year(Value:integer); 19 function get_tall:integer; 20 procedure set_tall(Value:integer); 21 function get_weight:integer; 22 procedure set_weight(Value:integer); 23 24 public 25 constructor Create(Name:string;Sex:string;Year:integer;Tall:integer;Weight:integer);overload; 26 constructor Create(Name:string;Sex:string);overload; //重载构造函数，注意一定要使用关键字：overload 27 property _name:string read get_name write set_name; //为类定义属性，以便在外部可以访问 28 property _sex:string read get_sex write set_sex; //其中read表示可读，后面紧跟一个返回该属性值的函数名 29 property _year:integer read get_year write set_year; //write 表示可写，后面紧跟一个设置该属性值的函数名 30 property _tall:integer read get_tall write set_tall; 31 property _weight:integer read get_weight write set_weight; 32 33 end; 34 35 implementation 36 //构造函数的实现 37 constructor Person.Create(Name:string;Sex:string;Year:integer;Tall:integer;Weight:integer); 38 begin 39 Self.name:=Name ; Self.sex:=Sex ; Self.year:=Year ; Self.tall:=Tall; Self.weight:=Weight ; 40 41 end; 42 constructor Person.Create(Name:string;Sex:string); 43 begin 44 Self.name:=Name ; Self.sex:=Sex ; Self.year:=0 ; Self.tall:=0; Self.weight:=0; 45 end; 46 47 //类属性的内部实现 请与c#作比较：get{},set{} 48 function Person.get_name:string; 49 begin 50 result:=Self.name ; 51 end; 52 procedure Person.set_name(Value:string); 53 begin 54 if (Value<>'') then 55 name :=Value ; 56 end; 57 function Person.get_sex :string; 58 begin 59 result:=Self.sex; 60 end; 61 procedure Person.set_sex(Value:string); 62 begin 63 if((Value<>'female') and (Value<>'male')) then 64 Self.sex :='male' 65 else 66 Self.sex :=Value; 67 68 end; 69 function Person.get_year :integer; 70 begin 71 result:=Self.year ; 72 end; 73 procedure Person.set_year(Value:integer); 74 begin 75 if(Value>200) then 76 Self.year :=0 77 else 78 Self.year :=Value ; 79 end; 80 function Person.get_tall :integer; 81 begin 82 result:=Self.tall ; 83 end; 84 procedure Person.set_tall (Value:integer); 85 begin 86 if(Value>300) then 87 Self.tall:=0 88 else 89 Self.tall:=Value ; 90 end; 91 92 function Person.get_weight :integer; 93 begin 94 result:=Self.weight ; 95 end; 96 procedure Person.set_weight(Value:integer); 97 begin 98 if(Value>1000) then 99 Self.weight:=0100 else101 Self.weight:=Value ;102 end;103 104 end. 其次一个学生类继承了上面的人类，定义如下： 1 unit Student_Cls; 2 3 interface 4 uses Person_Cls; 5 type 6 Student=Class(Person) 7 private 8 stCode:string; //学号 9 department:string; //学院 (大学),学校名称(其他)10 classGrade:string; //班级11 function get_stCode:string;12 function get_department:string;13 function get_classGrade:string;14 15 public16 //构造函数定义17 constructor Create(s_name:string;s_sex:string;st_code:string;st_dt:string;st_clg:string);18 property _stCode:string read get_stCode; //定义只读属性19 property _department:string read get_department;20 property _classGrade:string read get_classGrade;21 22 end;23 24 implementation25 constructor Student.Create(s_name:string;s_sex:string;st_code:string;st_dt:string;st_clg:string);26 begin27 inherited Create(s_name,s_sex); //注意在此使用inherited关键字调用基类的构造函数，并向基类person传递28 //参数。在c#中可以使用base指定参数列表，在delphi中要使用inherited显示说明29 Self.stCode :=st_code; Self.department:=st_dt ; Self.classGrade:=st_clg ;30 31 end;32 //只读属性的内部实现33 function Student.get_stCode :string ;34 begin35 result:=Self.stCode ;36 end;37 function Student.get_department :string ;38 begin39 result:=Self.classGrade ;40 end;41 function Student.get_classGrade :string;42 begin43 result:=Self.classGrade ;44 end;45 end.
