请问一个函数怎样返回一个数组

Question

  用strlcopy()最后拷贝一下就成

Answer 1

可以用变参的方式写函数
变参:procedure MyFunction(Var MyArray: Array of String);

Answer 2

type ttt=array[1..10] of integer;
function test:ttt;
var i:integer;
begin
   for i:=1 to 10 do
   result[1]:=i;
end;

Answer 3

type mylist = record
          id:integer ;
          name : String ; end ;
 type atemp = Array[1..10]of mylist ;
function Afunction (inf : atemp) : Atemp ;
begin
  Afunction := atemp ;///
end ;