学步园

如果赋值数据集 Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiDB/html/delphi_20061222170119158.html
问题1.  
    我有把一个TADOQuery1作为参数传递给一个函数  
    如果按TADOQuery1的设置重新去数据库中取数据出来  
  问题2.  
    如何把这个控件得到的数据集作为返回值赋给result呢？

function   getResultSet(vQuery:   TADOQuery):   TAdoQuery;  
  begin  
      ......  
      Result   :=   vQuery;  
  end;  
   
  不过没明白你为什么要返回一个数据集呢,直接用query不行吗

觉得存到clientdataset里面比较好，相当于临时内存表

你的思路是错误的，定义的ADOquery是作为传地址引用的，比如说你这个函数的Vquery用的是已经实例化的ADOquery，那么你只要写procedure就可以了，执行完过程，就直接在adoquery中看到结果  
  如果您确实想返回数据集，最好定义_recordser

我想让一个函数用代码方式建立一个TADOQUERY取完数据  
  然后把recordset赋值回去就可以释放这个函数中创建的对像了。  
  通过clone()方法好像可以实现了  
 

你定义_RecordSet类型，将ADODataSet1.Recordset复制给它