delphi 怎么改变基类的封装等级？

shenyaowen

delphi 完美经典上说子类可以改变继承的基类的封装等级
只要在重新声明就可以了。
我在子类重新声明了基类的一个成员 但是好像只是在子类重新定义了一个名字一样的字段 基类的没变。。
delphi 完美经典上说子类可以改变继承的基类的封装等级
只要在重新声明就可以了。
我在子类重新声明了基类的一个成员 但是好像只是在子类重新定义了一个名字一样的字段 基类的没变。。
delphi 完美经典上说子类可以改变继承的基类的封装等级
只要在重新声明就可以了。
我在子类重新声明了基类的一个成员 但是好像只是在子类重新定义了一个名字一样的字段 基类的没变。。

1. //子类
   
2. other = class (girl)   
   
3. private
   
4.      aa : Integer;
   
5. protected
   
6.      lover : string;                  //重新声明基类的lover
   
7.      dd : string;
   
8. public
   
9.      procedure setaa (_iNum : Integer);
   
10.      procedure setdd (_szTemp : string);
    
11.      function getaa () : Integer;
    
12.      function getdd () : string;
    
13.      constructor create ();
    
14. end;
    
15. 
    
16. //基类
    
17. girl = class (boy)           
    
18. private
    
19.      lover : string;
    
20. protected
    
21.      husband : string;
    
22. public
    
23.      constructor create ();
    
24.      procedure setlover (_szName : string);
    
25.      procedure sethusband (_szName : string);
    
26.      function getlover () : string;                                  //获取成员lover
    
27.      function gethusband () : string;
    
28. end;
    
29. 
    
30. 
    
31. 
    
32. procedure TForm1.Button1Click(Sender: TObject);
    
33. var
    
34. 
    
35. xiaoming:other;
    
36. 
    
37. begin
    
38.   xiaoming := other.create();
    
39.   xiaoming.lover := 'xiaohua';                   //怎么没有改变基类的成员，而是改变了自己类新定义的成员。
    
40.                                                                    //书上说重新声明不是只改变原封装等级吗，怎么变重新定义了。。。是方法不对吗
    
41. 
    
42. ShowMessage(xiaoming.getlover());       //调用基类的  getlover ( ) 获取基类的数据成员
    
43. end;
    

复制代码

Angel丶L

支持下 来拿鱼币的

H9enRy

感谢分享~！

墙角君

。。。

墙角君

母鸡。。。。

tlwangxd

学习一下

635178917

对啊，看帖回帖，不知不觉就升级了

一个人的路

:big

悠悠清风

支持一下，主要为了鱼币~:lol:

zd0307

支持lz

d5zhao

回帖赚学费

xubo

看看 有鱼币呀

Hugo101

看看 有鱼币呀，楼主加油~~~~~~~

woshidamowang24

学习一下

彳山一几攵

感谢分享~！

鱼C工作室.YCGZS

感谢楼主了