例如
function TAuto.fun():OLEVariant;
var
oleArray:Vairant;
begin
oleArray:=varArrayCreate([0,2],varDispatch);
oleArray:=……
……
result:=oleArray;
end;到VBScript脚本中,
obj=auto.fun();
isArray(obj);//true
uBound(obj);//2
obj(0);//出错!!!!!