
Delphi 动态数组作参数
定义了一个动态数组:AarrayofTMyRecord;希望调用一函数fun(A),函数体内动态给A分配内存(用setLength)。在定义fun(参数)时,这个参数应该...
定义了一个动态数组 : A array of TMyRecord;
希望调用 一函数 fun(A), 函数体内动态给 A 分配内存(用 setLength)。
在定义 fun(参数) 时 , 这个参数应该怎么写呢,函数体内怎么用呢? 展开
希望调用 一函数 fun(A), 函数体内动态给 A 分配内存(用 setLength)。
在定义 fun(参数) 时 , 这个参数应该怎么写呢,函数体内怎么用呢? 展开
3个回答
展开全部
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
因为
展开全部
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;
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()会出错应该也是这个原因。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
把var变参申明去掉试试看,不要var。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询