Delphi 动态数组作参数

答案:3 悬赏:70 手机版

解决时间 2021-11-27 22:39

提问者网友：那叫心脏的地方装的都是你
2021-11-27 08:28

Delphi 动态数组作参数

最佳答案

五星知识达人网友：枭雄戏美人
2021-11-27 08:42

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因为

全部回答

1楼网友：醉吻情书
2021-11-27 10:09

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

2楼网友：青灯有味
2021-11-27 09:41

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()会出错应该也是这个原因。

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息