COM 数组参数

最新推荐文章于 2022-03-29 18:17:58 发布

xxfly

最新推荐文章于 2022-03-29 18:17:58 发布

阅读量433

点赞数

分类专栏： delphi7 文章标签： integer function

本文链接：https://blog.csdn.net/xxfly/article/details/4651182

版权

delphi7 专栏收录该内容

7 篇文章 0 订阅

订阅专栏

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;