Delphi 程序数组参数混淆

Question

这里有个我不明白的问题：

procedure TMain.THREAD_SYNC(
              AProgressBar: TProgressBar; 
              ARemoteData: array of RemoteDATA; 
              ALocalData : array of LocalDATA; 
              Number : integer; 
              AInfo : TEdit);

如果我为它分配这样的“较小的数组”，则以下过程可以完美运行

THREAD_SYNC(Remote,Local,0,Edit1)

当我尝试为它分配一个包含超过 30.000 条记录的更大数组时，我收到了 Stack Overflow 错误，所以我尝试并用 Google 搜索...我发现了一些关于使用 const 的信息，所以我将我的程序更改为：

procedure TMain.THREAD_SYNC(
              AProgressBar: TProgressBar; 
              ARemoteData: array of RemoteDATA; 
              const ALocalData : array of LocalDATA; 
              Number : integer; 
              AInfo : TEdit);

现在它起作用了，我的问题是我不明白为什么？
没有const有什么区别？

Answer 1

这些数组是按值传递的，这意味着它们被复制到堆栈上并以这种方式传递。因此堆栈溢出错误。

通过使数组参数const 解决问题。在那种情况下，数组是通过引用而不是值传递的。换句话说，传递了一个指针。

一般来说，当传递（可能）像数组或记录这样的大型结构时，您应该始终通过引用传递它们；如果接收它们的方法不改变数据，则使用const，如果接收者改变，则使用var。这样做的另一个好处是您的代码变得更快，因为不需要复制数据。

你应该像这样改变你的方法：

procedure TMain.THREAD_SYNC(
              AProgressBar: TProgressBar; 
              const ARemoteData: array of RemoteDATA; 
              const ALocalData : array of LocalDATA; 
              Number : integer; 
              AInfo : TEdit);

TProgressBar 或TEdit 不需要使用 const，这些是类，类存储在堆上，只有堆栈上的引用。