Question

Delphi 动态数组作参数

定义了一个动态数组 : A array of TMyRecord;
希望调用 一函数 fun(A), 函数体内动态给 A 分配内存（用 setLength）。
在定义 fun(参数) 时 ， 这个参数应该怎么写呢，函数体内怎么用呢？

Answer 1

type
 TArrMyRec = array of TMyRecord;

...
function myGetMem ( var aRec: TArrMyRec; const nSzie: Integer):boolean
begin
     Result := ( nSzie >= 0);
     if ( nSzie < 0)then
        Exit;

     SetLength( aRec, nSzie);
     aRec[ 0] := ...
end;

// 如果参数这样写： 
procedure( var aRec: array of TMyRecord )   
var
    len
begin
    len := ...

    SetLength( aRec, len);   // 如果函数体内这样写 ,编译的时候会提示 类型不匹配，
   //因为作为传出参数必须要先定义，delphi才知道传出参数的类型。函数的返回值是数组的也是一样要先定义的。
   
//function( A:integer ) :array of TMyRecord;  这样也是不允许的

type
 TArrMyRec = array of TMyRecord;
 function( A:integer ) :TArrMyRec;
//这样是允许的。    
end

因为

Answer 2

type
TDynMyRec = array of TMyRecord;

...
founction ( var aRec: TDynMyRec; const nSzie: Integer):boolean
begin
Result := ( nSzie >= 0);
if ( nSzie < 0)then
Exit;

SetLength( aRec, nSzie);
aRec[ 0] := ...
end;

追问

procedure( var aRec: array of TMyRecord ) / 如果参数这样写：
var
len

begin
len := ...

SetLength( aRec, len); // 如果函数体内这样写 ,编译的时候会提示 类型不匹配，为什么呢？
end

追答

array of TMyRecord 不算是资料型态。
有些语言(ex: C...)并不支援这种资料用於函数传递，
所以大部分都会建议自定义一个型态来替代：TDynMyRec = array of TMyRecord;
我想

SetLength()会出错应该也是这个原因。

Answer 3

把var变参申明去掉试试看，不要var。