如何将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);

 

http://www.myexception.cn/delphi/264838.html