shenyaowen 发表于 2014-7-9 23:41:01

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

本帖最后由 shenyaowen 于 2014-7-9 23:59 编辑

delphi 完美经典上说子类可以改变继承的基类的封装等级
只要在重新声明就可以了。
我在子类重新声明了基类的一个成员 但是好像只是在子类重新定义了一个名字一样的字段 基类的没变。。
delphi 完美经典上说子类可以改变继承的基类的封装等级
只要在重新声明就可以了。
我在子类重新声明了基类的一个成员 但是好像只是在子类重新定义了一个名字一样的字段 基类的没变。。
delphi 完美经典上说子类可以改变继承的基类的封装等级
只要在重新声明就可以了。
我在子类重新声明了基类的一个成员 但是好像只是在子类重新定义了一个名字一样的字段 基类的没变。。
//子类
other = class (girl)   
private
   aa : Integer;
protected
   lover : string;                  //重新声明基类的lover
   dd : string;
public
   procedure setaa (_iNum : Integer);
   procedure setdd (_szTemp : string);
   function getaa () : Integer;
   function getdd () : string;
   constructor create ();
end;

//基类
girl = class (boy)         
private
   lover : string;
protected
   husband : string;
public
   constructor create ();
   procedure setlover (_szName : string);
   procedure sethusband (_szName : string);
   function getlover () : string;                                  //获取成员lover
   function gethusband () : string;
end;



procedure TForm1.Button1Click(Sender: TObject);
var

xiaoming:other;

begin
xiaoming := other.create();
xiaoming.lover := 'xiaohua';                   //怎么没有改变基类的成员，而是改变了自己类新定义的成员。
                                                                   //书上说重新声明不是只改变原封装等级吗，怎么变重新定义了。。。是方法不对吗

ShowMessage(xiaoming.getlover());       //调用基类的getlover ( ) 获取基类的数据成员
end;




Angel丶L 发表于 2014-7-16 22:44:06

支持下 来拿鱼币的

H9enRy 发表于 2014-8-1 01:22:58

感谢分享~！

墙角君 发表于 2014-8-6 00:58:41

。。。

墙角君 发表于 2014-8-7 03:08:37

母鸡。。。。

tlwangxd 发表于 2014-10-22 14:52:06

学习一下

635178917 发表于 2015-2-5 15:28:06

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

一个人的路 发表于 2015-2-9 15:40:58

:big

悠悠清风 发表于 2015-2-9 23:05:45

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

zd0307 发表于 2015-4-18 09:45:17

支持lz

d5zhao 发表于 2015-4-20 02:26:31

回帖赚学费

xubo 发表于 2015-4-21 10:19:49

看看 有鱼币呀

Hugo101 发表于 2015-5-6 14:32:19

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

woshidamowang24 发表于 2015-8-5 09:00:11

学习一下

彳山一几攵 发表于 2015-9-15 21:37:07

感谢分享~！

鱼C工作室.YCGZS 发表于 2015-12-3 12:32:25

感谢楼主了
页: [1]
查看完整版本: delphi 怎么改变基类的封装等级？