为什么 SetString 在 Delphi 中占用更少的内存（使用 Unicode）？

Question

这是 Delphi 2009，因此适用 Unicode。

我有一些代码将字符串从缓冲区加载到 StringList 中，如下所示：

      var Buffer: TBytes; RecStart, RecEnd: PChar; S: string;

      FileStream.Read(Buffer[0], Size);

      repeat
         ... find next record RecStart and RecEnd that point into the buffer;        

         SetString(S, RecStart, RecEnd - RecStart);
         MyStringList.Add(S);
      until end of buffer

但在一些修改期间，我更改了逻辑，以便最终添加相同的记录，但作为单独派生的字符串而不是通过 SetString 派生，即

      var SRecord: string;

      repeat
        SRecord := '';
        repeat
          SRecord := SRecord + ... processed line from the buffer;
        until end of record in the buffer

        MyStringList.Add(SRecord);
      until end of buffer

我的内容注意到 StringList 的内存使用量从 52 MB 增加到大约 70 MB。增幅超过 30%。

为了恢复较低的内存使用量，我发现我必须使用 SetString 创建字符串变量以添加到我的 StringList 中，如下所示：

      repeat
        SRecord := '';
        repeat
          SRecord := SRecord + ... processed line from the buffer;
        until end of record in the buffer

        SetString(S, PChar(SRecord), length(SRecord));
        MyStringList.Add(S);
      until end of buffer

检查和比较 S 和 SRecord，它们在所有情况下都完全相同。但是将 SRecord 添加到 MyStringList 比添加 S 使用更多的内存。

有谁知道发生了什么以及为什么 SetString 节省内存？

---

跟进。我没想到会这样，但我检查了一下以确定。

既不：

  SetLength(SRecord, length(SRecord));

也不

  Trim(SRecord);

释放多余的空间。 SetString 似乎需要这样做。

Answer 1

如果您连接字符串，内存管理器将分配更多内存，因为它假定您向其中添加越来越多的文本，并为将来的连接分配额外的空间。这样，字符串的分配大小远大于使用的大小（取决于使用的内存管理器）。如果使用SetString，新字符串的分配大小几乎与已使用的大小相同。当SRecord字符串超出范围并且其引用计数变为零时，SRecord占用的内存被释放。因此，您最终会获得字符串所需的最小分配大小。

Answer 2

尝试安装内存管理器过滤器（Get/SetMemoryManager），它将所有对 GetMem/FreeMem 的调用传递给默认内存管理器，但它也执行统计数据收集。您可能会发现两种变体的内存消耗是相同的。

只是内存碎片而已。