try this:
var
d:variant;
dd:oleVariant;
begin
dd := VarArrayOf([Now - 1, Now - 2, Now - 3]);
d := CreateoleObject('Test.Cls_Test');
d.A(dd);
end;
var
d:variant;
dd:oleVariant;
begin
dd := VarArrayOf([Now - 1, Now - 2, Now - 3]);
d := CreateoleObject('Test.Cls_Test');
d.A(dd);
end;
编译通过,但运行到d.A(dd);出现“类型不匹配”的错误
VB应该声明为一个OleVariant的数组,这样就可以了。否则不是标准的COM支持的类型。
我不懂VB,具体怎么写我不会。