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搞混了..

立此存照