type TUserXJYBillForm = class(TCustomBillForm) qParentAddress: TkbmMWClientQuery; qPosition: TkbmMWClientQuery; qUserPosition: TkbmMWClientQuery; qOrg: TkbmMWClientQuery; qNotUse: TkbmMWClientQuery; qCun: TkbmMWClientQuery;
先看上面一个uniForm的代码,注意qNotUse这一行。
问题的表现:当在Form.OnCreate中,qNotUse这个对象是正常的,我们可以使用他。但是,当在一个事件中,我们访问这个对象,他就变成了无效的对象。检查这个窗口的代码,我没有释放这个qNotUse对象的代码。如果把qNotUse与qCun对调,即把qCun放到qNotUse所在的行,那么这个qCun也会产生象qNotUse一样问题,而qNotUse则变成正常的。