Delphi 动态数组作参数

定义了一个动态数组:AarrayofTMyRecord;希望调用一函数fun(A),函数体内动态给A分配内存(用setLength)。在定义fun(参数)时,这个参数应该... 定义了一个动态数组 : A array of TMyRecord;
希望调用 一函数 fun(A), 函数体内动态给 A 分配内存(用 setLength)。
在定义 fun(参数) 时 , 这个参数应该怎么写呢,函数体内怎么用呢?
展开
 我来答
百度网友9a2fd7391
推荐于2016-01-06 · 超过17用户采纳过TA的回答
知道答主
回答量:28
采纳率:0%
帮助的人:32.7万
展开全部
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

因为

yasigi
2013-08-26 · TA获得超过208个赞
知道小有建树答主
回答量:262
采纳率:100%
帮助的人:222万
展开全部
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()会出错应该也是这个原因。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
百度网友c161d43c7
2013-08-26 · TA获得超过1776个赞
知道小有建树答主
回答量:1227
采纳率:69%
帮助的人:282万
展开全部
把var变参申明去掉试试看,不要var。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式