怎么将TParams类型转为Variant

如何将TParams类型转为Variant？
InParam :TParams;
提供的函数为
function ExecProc(const ProcName: AnsiString; const InParam: Variant): Integer;

如果直接调用
ExecProc('SP_Name', InParam)
编译通不过
如何将InParam转为Variant?

在线等！



------解决方案--------------------
delphi中Variant也是一种数据类型 Tparams 继承自tcollection 是个集合类 继承自tojbect 他们之间的转换 是没办法的。

除非你按照execproc 中variants参数类型解析InParam 组合成所需信息
------解决方案--------------------
PackageParams应该可以，试试，看它的函数是否会出错。
------解决方案--------------------
找源码啊,DBClient单元PackageParams声明下面就是UnpackParams
function PackageParams(Params: TParams; Types: TParamTypes = AllParamTypes): OleVariant;
procedure UnpackParams(const Source: OleVariant; Dest: TParams);