B
baifeng
Unregistered / Unconfirmed
GUEST, unregistred user!
想做这么一个过程，将过程内部的一个的数组传递给外部调用者的数组？
如：（是我定义，，但有错误）
procedure abc(var ByteArr:array of byte);
var
BArr;array of byte;
i:integer;
begin
setlength(BArr,5);
....
....
setlength(ByteArr,high(BArr)); //有错，，不知怎么改
for i:=0 to high(BArr) do ByteArr:=BArr; //有错，，不知怎么改
end;
怎么实现类似的动态数组做为参数的过程？
如：（是我定义，，但有错误）
procedure abc(var ByteArr:array of byte);
var
BArr;array of byte;
i:integer;
begin
setlength(BArr,5);
....
....
setlength(ByteArr,high(BArr)); //有错，，不知怎么改
for i:=0 to high(BArr) do ByteArr:=BArr; //有错，，不知怎么改
end;
怎么实现类似的动态数组做为参数的过程？