关于资源释放的问题请教
1.在Fmainrs界面执行查询qry_yg,where 条件1。
2.双击qry_yg的一条记录,打开rs_edit界面。
rs_edit的formcreat事件中,写入
DBEdit2.DataSource := (Fmain.RzPageControl1.ActivePage.Controls[0] as TFmainrs).DataSource1;
DBEdit2.DataSource.DataSet := (Fmain.RzPageControl1.ActivePage.Controls[0] as TFmainrs).qry_yg;
DBEdit2.DataField := '姓名';
运行正确。
3.在Fmainrs界面执行查询qry_yg,where 条件2
这时提示:Acess violation at address 00403BFC.....。
问题:是不是因为rs_edit界面退出时,没有释放qry_yg?
如果需要释放qry_yg,应该在什么事件怎么写?