Delphi里函数参数传递的问题

我在delphi写了如下代码:

procedure DirectWrite(adatas : array of TStringList; xlsfilename : String ;app:String );
begin
end;

目的是吧adatas这个数组里的数据写入到xls文件里. adatas是个动态数组. 使用时发现如果adatas的长度很大, 此函数非常慢. 不是慢在执行, 而是慢在调用...如果长度再大一些,超过50w的话,甚至报堆栈溢出的错误!!!

原来, 值传递时 adatas的值都会生成一个新的副本, 自然要复制到堆栈里, 数据很大的时候堆栈就不够了...

代码改成下面的方式就可以了(改成指针参数):

type

  strArray = array of TStringList;
  PStrArray = ^strArray;

procedure DirectWrite(adatas :PStrArray ; xlsfilename : String ;app:String );
begin
 
    maxRow := high(adatas^) ;
    tempSL :=  adatas^[ i ];

end;

DirectWrite (@datas, fileName ,app )  ;
 


居然出现这样的问题, 实在让我颜面尽失...究其原因, 居然是因为平时用Java比较多....java没有指针,函数会传递的数组的引用.自然不会出现这样的问题...

VC++里遇到这种情况,我肯定用的是指针, Delphi实在是半路出家, 不懂的太多了...甚至把delphi和java搞混了..

立此存照

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值