COM 數組參數

function TAutoCls.SetArray(iMode: Integer; vAry: OleVariant): WideString;
var
   i,j:Integer ;
   s:string;
begin
   case iMode of
      2:   //二維
         begin
            for  I:=VarArrayLowBound(vAry, 1) to VarArrayHighBound(vAry, 1) do
               begin
                  for  j:=VarArrayLowBound(vAry,  2) to VarArrayHighBound(vAry, 2) do
                     begin
                        S:=S + IntToStr(i) +'-' + IntToStr(j)+ '=' + VarToStr(vAry[I,j]) + ',';
                     end;
                  s:=s +#13#10;
               end;

         end;
      else     //一維
         begin
            for  I:=VarArrayLowBound(vAry, 1) to VarArrayHighBound(vAry, 1) do
               begin
                  S:=S + VarToStr(vAry[I]) + ',';
               end;
         end;
   end;

//   showmessage(s );
   result:= ' iMode=' + IntToStr(iMode) + '=' + s ;

end;

 

function TAutoCls.GetArray: OleVariant;
var   i:integer;  
  begin
      Result:=VarArrayCreate([0,9],varVariant); //一維
      for   i:=0   to   9   do
          Result[i]:='array'+ inttostr(i)
  end;