如何让函数返回一个数据集(数据表)?

Question

请给个简单的例子,另外返回之后如何赋值给adoquery或者datasource控件?
我的最终目的是不让调用者看见我的连接字符串等数据,隔离调用者与数据库,他们只是调用我的函数获取数据(以后我会把函数写进dll),然后在他们的dbgrid 上面显示就行了

Answer 1

把结果生成XML让别人去读，简单实用！

Answer 2

没其他方法了?能否返回一个数据集或者 stream之类的,让调用者去使用?

Answer 3

返回数据集，这个太不通用了，可以返回xml或者你们之间定义好的数据结构，返回解析显示

Answer 4

.....还没有用过xml,请问返回的xml是不是能做成一个内存流之类的,因为我不想返回的时候首先要保存在硬盘件,让别人调用之后,还要写代码删除

Answer 5

//自定义一个函数，返回值类型为TADOQuery
function myfun():TADOQuery;
var ds:TADOQuery;
begin
ds:=TADOQuery.Create(nil);
//................
result:=ds;
end;//调用上述函数
procedure TForm1.Button1Click(Sender: TObject);
begin
  ADOQuery1:=myfun();
end;