这是过程:param2是个数组类型,如何定义?
procedure Tinsertobj.Method1(const vdatas: WideString;
  var Param2: 数组);<----
begin
end;这是调用过程,传10个数
procedure TForm1.Button1Click(Sender: TObject);
var
  zxs:array[1..10] of string;
begin
zxs[1]:='江苏';
zxs[2]:='浙江';
zxs[3]:='安徽';
zxs[4]:='河北';
zxs[5]:='山西';
zxs[6]:='内蒙';
zxs[7]:='辽林';
zxs[8]:='吉林';
zxs[9]:='黑龙江';
zxs[10]:='福建';
ecook.Method1('dd',这里数组怎么写?);
end;

解决方案 »

  1.   

    定义一个TStringList类不就行了?功能还强。
      

  2.   

    一定要用数组的话

    Type 
      TArray = array[1..10] of string;然后
    procedure Tinsertobj.Method1(const vdatas: WideString;
      var Param2: Tarray);<----
    begin
    end;procedure TForm1.Button1Click(Sender: TObject);
    var
      zxs:Tarray;
    begin
    zxs[1]:='江苏';
    zxs[2]:='浙江';
    zxs[3]:='安徽';
    zxs[4]:='河北';
    zxs[5]:='山西';
    zxs[6]:='内蒙';
    zxs[7]:='辽林';
    zxs[8]:='吉林';
    zxs[9]:='黑龙江';
    zxs[10]:='福建';
    ecook.Method1('dd',ZXS);
    end;
      

  3.   

    procedure Tinsertobj.Method1(const vdatas: WideString;
      var Param2: array of string);//数组)
      

  4.   


    搞搞搞搞搞搞搞搞搞搞搞搞搞搞搞搞搞搞搞搞搞搞搞搞搞搞搞搞 
    搞搞搞搞搞搞 搞搞搞搞搞搞搞搞搞搞 搞搞搞  搞搞搞搞搞 
    搞搞搞搞搞搞    搞搞搞搞搞搞搞 搞搞搞搞 搞搞搞搞搞 
    搞搞搞搞搞   搞搞搞搞搞搞搞搞搞 搞搞搞搞  搞搞搞搞 
    搞搞搞搞  搞搞搞搞搞搞搞搞搞搞搞搞 搞   搞搞 搞搞 
    搞搞  搞 搞搞搞搞搞搞搞搞搞搞  搞搞搞 搞搞   搞 
    搞搞搞搞搞 搞搞搞搞搞搞搞搞搞   搞搞搞   搞搞搞搞 
    搞搞搞搞   搞搞搞搞搞搞搞搞搞搞 搞  搞 搞搞搞搞搞 
    搞搞搞搞搞搞搞 搞搞搞搞搞搞搞搞搞  搞  搞   搞搞 
    搞搞   搞  搞搞搞搞搞搞搞搞搞 搞搞搞搞  搞搞搞搞 
    搞 搞搞   搞搞搞搞搞搞搞搞   搞   搞 搞搞搞搞 
    搞搞搞搞搞  搞搞搞搞搞搞搞搞 搞  搞搞 搞 搞搞搞搞 
    搞搞搞搞    搞搞搞搞搞搞 搞搞 搞搞搞搞搞 搞搞搞搞 
    搞搞搞  搞搞   搞搞搞搞 搞  搞搞 搞搞 搞搞搞搞 
    搞   搞搞搞搞    搞搞搞搞搞 搞搞搞   搞搞搞搞 
    搞搞搞搞搞搞搞搞搞搞搞搞搞搞搞搞搞搞搞搞搞搞搞搞搞搞搞搞 
     daiguan(焱之舞)
      

  5.   

    http://expert.csdn.net/Expert/topic/1412/1412402.xml?temp=.9006159
    希望对你有帮助
      

  6.   

    用fancier(OP&&(C/C++)) 的时候要注意要用SetLength来设置数组的大小
    因为函数传递的实际上是这个数据的地址指针,所以也可以用指针来传递。