奇怪的<包函结构体>自动赋值同步问题..
先贴些代码吧. 其实就是TRecB结构包函 TRecA结构)
TRecA = Record
AMeber1:Variant;
AMeber3:Integer;
AMeber4:Boolean;
AMeber5:string;
end;
TRecB = Record
BMeber1:Variant;
BMeber3:Integer;
BMeber4:Boolean;
BMeber5:string;
BMeberArray : array of TRecA; //注意:动态数组结构
end;
Tmp,Old,New:TRecB; //设定为全局性的
初使化时.假设设定
Tmp在成员值.并设定其动态数据为4维.设定动态数据中一些数据.
然后使三个结构都相等
Old := Tmp;
New := Tmp;
使用的原理为:
在业务逻辑中.初合化的时候使三个结构体相同,当某些业务属性变动之后,先对应在Tmp结构中变动一些成员的数据.然后对比Tmp,和Old结构有中对应成员数据异动.并将异动值同步至New中对应的成员上.
现在我程序中发现个问题.初使化三个结构体(Old := Tmp; New := Tmp;)后.当业务有变后.假设我手动的更改 Tmp.BMeber3:= 2; Tmp.BMeber1 := '2-3-4';
并没有显示设定(如:
Old.BMeber3:= 2; Old.BMeber1 := '2-3-4';
New.BMeber3:= 2; New.BMeber1 := '2-3-4';
或者
Old := Tmp;
New := Tmp;
)但是程序当中就自动将值同步到New和Old结构体对应的成员值中去了.
郁闷极了.程序我检查一下.除了在初使化的时候有显式的
Old := Tmp;
New := Tmp; 赋值操作外.其他地方除了我手动改Tmp成员的值外.没有类似的赋值语句了.奇怪.为什么为三个结构体值老是自动同步呢?
怀疑
1.初使中的 Old := Tmp; New := Tmp; 语句是不是将其中二个结构体的指针指向第三人结构体了,而不是更改其对应的值? 但是不应该啊.我只是赋值操作.不应该出现指针指向操作呀!!
2.TRecB中存在动态数组结构.(BMeberArray : array of TRecA; )不知道是不是因为这个的原因.
这里有不用类.是因业务不需要对应的事件方法.因为业务逻辑比较复杂.复杂的运算都是另写方法实现.使用结构体就是起缓存下数据而已.有点像使用变量的感觉罢了.
使用类其实也一样.但就是也起个保存数据作用.反而多了二个Create的Destory方法.没啥用.感觉捌扭.
郁闷..不知道还有其他朋友遇到过这个问题没有.请牛人帮忙看看.看看为啥这样.有啥解决方法没?谢谢
|
