编写一个MTS组件，输出数组如何实现？客户端如何接收数组内容？(100分)

MTS组件从数据库中查询记录，当搜索到0条记录时，返回“0”，当搜索到多条记录时
分别输出每条记录时，返回“记录数”。问：组件怎样输出数组？客户端怎样接收各条
记录？谢谢。
函数为：
function TmtsQueryReg.QueryRegNum(const sZh: WideString;
out outWater: OleVariant): WideString;

定义一个Variant类型变量，将数组写在该变量中，从中间层返回该变量和数组长度就可以了
例如中间层
Var
i,j,ArrCount:Integer;
ArrVar:Variant;
begin
ArrCount:=10;

ArrVar:=VarArrayCreate([0,ArrCount-1],VarVariant);
j:=0;
For i:=0 to ArrCount-1do
begin
ArrVar[j]:=...;
j:=j+1;
end;
end;
...
客户端取得数组变量和数组长度后同样用
ArrVar:=VarArrayCreate([0,ArrCount-1],VarVariant);
可得到该数组

to whsunbin:
在VC客户端中如何获取各个记录？

对不起：VC我不熟悉。

to whsunbin:
给你加分先