ActiveX 返回数组的有关问题

ActiveX 返回数组的问题

Delphi(Pascal) code

function TComA.GetArray(Param1: OleVariant): OleVariant;var  val:Variant;  i:Integer;begin  VariantInit(Result);  val    := VarArrayCreate([0,1], VT_BSTR);  val[0] := '1';  val[1] := '2';  //Result := val;  TVarData(Result).VType := VT_ARRAY;  TVarData(Result).VArray := TVarData(val).VArray;end;