如何给函数传递数组参数？

[yangfan369]

例子如下：
var
A: array of myList; //myList是自定义结构,A在本单元是全程的

...
f1(B:array of myList);
begin
B:=A; //在此不能通过，提示相反的类型，怎么办
...
end;

f2()；
begin
showmessage(A[1].name);
end;
end.

[yangfan369]

刚次写错了。
例子如下：
var
A: array of myList; //myList是自定义结构,A在本单元是全程的

...
f1(B:array of myList);
begin
A:=B; //在此不能通过，提示相反的类型，怎么办
...
end;

f2()；
begin
showmessage(A[1].name);
end;
end.

[hongqi162]

传递参数f1(a[i]);

A:=B; //不太明白你要干什么

[rockswj]

A: array of myList是动态数组
b:是数组参数既开放数组
不是一会事

[yangfan369]

想在本单元中其它函数中使用A，是通过f1（B:array of myList）初始化A的。

[yangfan369]

应当怎样做再能在f2()中使用通过f1传进来的参数？

[jimh]

自己复制：
SetLength(A,High(B)+1);
for i:=0 to High(B) do
A[i]:=B[i];

[yangfan369]

能不能声明一个指针，指向需要传入的数组B，以后在本单元中使用此指针呢？
如果能的话，应当怎样做。谢谢各位了。
一直在线等待。

[yangfan369]

jimh(jimmy) 兄的方法我也想过，不过这样一来可能会消耗系统时间和内存，因为传入的数组可能很大，我想能不能通过A引用B?

[rockswj]

动态数组需要分配空间的。。
SetLength

[yangfan369]

试过了，不行。

[liyangyao970]

Setlength
然后再偱环就是了，试试，可以吗？

[yangfan369]

能不能声明一个指针，指向需要传入的数组B，以后在本单元中使用此指针呢？
如果能的话，应当怎样做。谢谢各位了。

[zhangnan623]

var
A: array of myList;你定义的是一个不定长的数组，使用前必须初始化数组大小
比如用：setlength()函数

[yangfan369]

再次谢谢，如果分不够，可以再加。

[fenglaile]

var
A: array of myList; //myList是自定义结构,A在本单元是全程的

...
f1(B:array of myList);
begin
B:=A; //在此不能通过，提示相反的类型，怎么办
...
end;
--------------
这样定义没有必要吧
在函数里定义b，不要传参数，反正a是全局的，可以直接使用

[yangfan369]

楼上说得也有道理，不过f1函数是个线程类成员函数，准确地说是该类的构造函数，直接为他的成员变量A负值，程序灵活性不大。

[jhwh]

这个应该是Pascal的问题。在pascal中，必须把这种情况定义一个类型。
TMyList = array of MyList;

函数定义：
f1( list:TMyList )
var p:TMyList;
begin
p := list;
end;