函数返回数组怎么调用啊？

函数返回数组怎么调用啊？ VCL组件开发及应用
http://www.delphi2007.net/DelphiVCL/html/delphi_20061221095617231.html
type  
      a_nx   =array   of   Integer;  
        function   Func_getnx(CYbh:   string;   cNy:   string;var   sErr:   string):   a_nx;  
   
  客户端程序中我怎么调用这个函数啊？我申明了一个整数数组好像不行？

急！在线等！

function里面怎么还有"var"的部分呢?  
  ----------------------------------------------------  
  type  
      a_nx   =array   of   Integer;  
   
  var   x:   a_nx  
   
  function   Func_getnx(CYbh:   string;   cNy:   string):   a_nx;  
  begin  
      //....  
  end  
   
  x   :=   Func_getnx;

搞错了,请无视上贴横线上面的话   -_-  
   
  不过赋值应该没问题的?

看你函数中如何对数组进行操作的   有没有动态设置一下数组的长度！

这种设计是错误的  
   
  你要返回数组应用开放数组作参数  
   
  type  
      a_nx   =array   of   Integer;  
        function   Func_getnx(CYbh:   string;   cNy:   string;var   sErr:   string;anx   :array   of   Integer):boolean;  
   
  调用时传个数组进去就行了  
  这样结构保证，谁使用谁申请空间谁释放  
  Func_getnx   中   使用low(anx)   与   High(anx)来取数组下标范围   （因为Delphi   可以array[x..y]滴  
   
  如果你一定要返回数组哪比较麻烦  
      a_nx   =array   of   Integer;  
        function   Func_getnx(CYbh:   string;   cNy:   string;var   sErr:   string):   Pointer;  
        begin  
            GetMem(Result,iNeed   *   Sizeof(Integer);   //   申请堆空间  
          ///do....  
   
          end;  
          使用时  
          更加麻烦   Delphi好像不能给数组指针给值  
        useanx:   a_nx;  
        setlength(a_nx,needsize);  
        aPointer   :=   Func_getnx.....  
        Copymemory(useanx,apointer,CopySize);  
  然后才能   useanx....  
   
        还要   Freemem(apointer,size);

我还是不大明白:  
  type  
      TArray1   =   array   of   xxx;  
   
  var  
      a:   TArray1;  
   
  function   x(..):TArray1;  
   
  为何不能直接a:=x,   把函数x的引用传递给a呢?   我以前试过可以的.

函数不支持数组类型返回值，但支持记录类型返回值  
  你可定义一个记录类型：  
  type  
      TRecData   =   Record  
              a_nx:   array   of   Integer  
      end;  
  然后：  
    function   funName(Pn....):   TRecData;

这样是可以的:  
   
  type  
        TArr   =   array   of   integer;  
   
  function   abc(a:integer):Tarr;  
  var  
          tempArr:TArr;  
  begin  
          setlength(tempArr,2);  
          tempArr[0]   :=   a;  
          tempArr[1]   :=   a   +   10;  
          result:=tempArr;  
  end;  
   
  procedure   TForm1.Button1Click(Sender:   TObject);  
  var  
          a   :   integer;  
  begin  
          a   :=   5;  
          showmessage(inttostr(       abc(a)[0]       ));     //5  
          showmessage(inttostr(       abc(a)[1]       ));     //15  
  end;

同意楼上,静态数组我没试过,但是动态数组肯定可以.

我就是用Harryfin(Harry)的方法实现的，我的是动态数组  
  谢谢各位