这是过程: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;
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;
先
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;
var Param2: array of string);//数组)
搞搞搞搞搞搞搞搞搞搞搞搞搞搞搞搞搞搞搞搞搞搞搞搞搞搞搞搞
搞搞搞搞搞搞 搞搞搞搞搞搞搞搞搞搞 搞搞搞 搞搞搞搞搞
搞搞搞搞搞搞 搞搞搞搞搞搞搞 搞搞搞搞 搞搞搞搞搞
搞搞搞搞搞 搞搞搞搞搞搞搞搞搞 搞搞搞搞 搞搞搞搞
搞搞搞搞 搞搞搞搞搞搞搞搞搞搞搞搞 搞 搞搞 搞搞
搞搞 搞 搞搞搞搞搞搞搞搞搞搞 搞搞搞 搞搞 搞
搞搞搞搞搞 搞搞搞搞搞搞搞搞搞 搞搞搞 搞搞搞搞
搞搞搞搞 搞搞搞搞搞搞搞搞搞搞 搞 搞 搞搞搞搞搞
搞搞搞搞搞搞搞 搞搞搞搞搞搞搞搞搞 搞 搞 搞搞
搞搞 搞 搞搞搞搞搞搞搞搞搞 搞搞搞搞 搞搞搞搞
搞 搞搞 搞搞搞搞搞搞搞搞 搞 搞 搞搞搞搞
搞搞搞搞搞 搞搞搞搞搞搞搞搞 搞 搞搞 搞 搞搞搞搞
搞搞搞搞 搞搞搞搞搞搞 搞搞 搞搞搞搞搞 搞搞搞搞
搞搞搞 搞搞 搞搞搞搞 搞 搞搞 搞搞 搞搞搞搞
搞 搞搞搞搞 搞搞搞搞搞 搞搞搞 搞搞搞搞
搞搞搞搞搞搞搞搞搞搞搞搞搞搞搞搞搞搞搞搞搞搞搞搞搞搞搞搞
daiguan(焱之舞)
希望对你有帮助
因为函数传递的实际上是这个数据的地址指针,所以也可以用指针来传递。