变量操作无效

Question

使用Windows 7 64和Delphi 2010

我们正在调用第三方功能：EFTTerminal.Purchase（1,0），从EFTPOS终端购买1美元。

每当调用此函数时，我们总是会得到“Invalid Variant Operation”。

EFTTerminal.Purchase（1,0）。我相信参数是Variant类型，如下所有编译好。

EFTTerminal.Purchase(1,0)
EFTTerminal.Purchase('1','0')
EFTTerminal.Purchase(1.5,1.5)

但是所有人都会犯同样的错误。

当我打破它时，在Variants单元中执行此过程。

procedure VarInvalidOp;
begin
raise EVariantInvalidOpError.Create(SInvalidVarOp);
end;

第三方不能/不会向我们提供源代码，因此我们无法再对此进行跟踪。

有人能给我一些关于如何解决这个问题的线索吗？

Answer 1

全部修复。 这是我的代码中对象初始化的问题。 谢谢你的建议雷米