同上!

解决方案 »

  1.   

    Assign(Source:TPersistent); 一个组件对象把与另一个组件对象相关的数据赋给自己
    AssignTo(Source:TPersistent);这是个私有方法。一个组件对象可以把数据赋给另一个实例或者类
      

  2.   

    //如果用:
    AnObjA:=AnObjB;
    //那么,只要AnObjA或AnObjB里有了变动,另一个跟着也会变动
      

  3.   

    现在又发现了新问题了啊,用Assign 函数,但是一个对象里头又包含有对象的话,那被包含的对象还是不能得到值啊!
      

  4.   

    覆盖assign吧,调用包含对象的assign