例子如下:
var
A: array of myList; //myList是自定义结构,A在本单元是全程的...
f1(B:array of myList);
begin
B:=A; //在此不能通过,提示相反的类型,怎么办
...
end;f2();
begin
showmessage(A[1].name);
end;
end.
var
A: array of myList; //myList是自定义结构,A在本单元是全程的...
f1(B:array of myList);
begin
B:=A; //在此不能通过,提示相反的类型,怎么办
...
end;f2();
begin
showmessage(A[1].name);
end;
end.
例子如下:
var
A: array of myList; //myList是自定义结构,A在本单元是全程的...
f1(B:array of myList);
begin
A:=B; //在此不能通过,提示相反的类型,怎么办
...
end;f2();
begin
showmessage(A[1].name);
end;
end.
b:是数组参数既开放数组
不是一会事
SetLength(A,High(B)+1);
for i:=0 to High(B) do
A[i]:=B[i];
SetLength
然后再偱环就是了,试试,可以吗?
A: array of myList; //myList是自定义结构,A在本单元是全程的...
f1(B:array of myList);
begin
B:=A; //在此不能通过,提示相反的类型,怎么办
...
end;
--------------
这样定义没有必要吧
在函数里定义b,不要传参数,反正a是全局的,可以直接使用
TMyList = array of MyList;函数定义:
f1( list:TMyList )
var p:TMyList;
begin
p := list;
end;
A: array of myList;你定义的是一个不定长的数组,使用前必须初始化数组大小
比如用:setlength()函数