Delphi TStringList和TThread不会释放其所有内存

使用的版本：Delphi 7

我正在开发一个在虚拟ListView上执行简单for循环的程序。数据存储在以下记录中：

type TList=record
  Item:Integer;
  SubItem1:String;
  SubItem2:String;
end;

项目是索引。子项1操作的状态（成功与否）。子项2文件的路径。for循环加载每个文件，执行一些操作，然后保存它。这些操作是在一个小窗口中进行的。每个文件大约2mb

现在，如果我在主窗体上执行这些操作，它工作得很好

多线程，存在巨大的内存问题。不知何故，TStringList似乎并没有被完全释放。在3-4k文件之后，我得到了一个内存异常。有时，软件会被固定在500-600mb，有时则不会。在任何情况下，TStringList都会返回一个EOutofMemory异常，并且不能再加载任何文件。在内存较多的计算机上，获取异常需要更长的时间

其他组件也会发生同样的情况。例如，如果我使用Synapse的THTTPSend，那么，过一段时间，软件无法创建任何新线程，因为内存消耗太高。它大约是500-600mb，而它最大应该是100mb。在主窗体上，一切正常

我想错误在我这边。也许我对线程理解不够。我试图释放破坏事件中的所有内容。我尝试了免费和零程序。我一次只试了一根线。我尝试手动释放线程（没有FreeOnTerminate…）

不走运

这是线程代码。这只是基本的想法；不是包含所有操作的完整代码。如果我删除LoadFile产品，一切都正常。根据线程池，为每个文件创建一个线程

unit OperationsFiles;

interface

uses Classes, SysUtils, Windows;

type
 TOperationFile = class(TThread)
 private
  Position : Integer;
  TPath, StatusMessage: String;
  FileStringList: TStringList;
  procedure UpdateStatus;
  procedure LoadFile;
 protected
  procedure Execute; override;
 public
  constructor Create(Path: String; LNumber: Integer);
 end;

implementation

uses Form1;

procedure TOperationFile.LoadFile;
begin
 try
  FileStringList.LoadFromFile(TPath);
  // Operations...
  StatusMessage := 'Success';
 except
  on E : Exception do StatusMessage := E.ClassName;
 end;
end;

constructor TOperationFile.Create(Path : String; LNumber: Integer);
begin
 inherited Create(False);
 TPath := Path;
 Position := LNumber;
 FreeOnTerminate := True;
end;

procedure TOperationFile.UpdateStatus;
begin
 FileList[Position].SubItem1 := StatusMessage;
 Form1.ListView4.UpdateItems(Position,Position);
end;

procedure TOperationFile.Execute;
begin
 FileStringList:= TStringList.Create;
 LoadFile;

 Synchronize(UpdateStatus);

 FileStringList.Free;
end;

end.

有什么问题吗

我一度认为，可能创建的线程太多了。如果用户加载100万个文件，那么最终将创建100万个线程——尽管只有50个线程同时创建和运行

感谢您的输入。

您在问题中显示的代码（可能）没有泄漏

我之所以这么说，可能是因为执行

过程中引发的异常可能导致泄漏。字符串列表的生存期应由
finally
块保护

FileStringList:= TStringList.Create;
try
  LoadFile;
  Synchronize(UpdateStatus);
finally
  FileStringList.Free;
end;

也就是说，我希望
LoadFile
中的异常swallow意味着不会泄漏字符串列表

您说可能创建了数千个线程。每个线程为其堆栈保留内存，默认堆栈大小为1MB。一旦您保留了数千个1MB堆栈，就可以很容易地耗尽或分割地址空间

我曾经看到过一些问题，这些问题都是由于过去随意创建线程造成的。例如，我有一个程序在创建和销毁线程时失败，存在的线程从未超过256个。这是在一台拥有4GB地址空间的16核机器上实现的。您可能有2GB的可用地址空间

尽管您声明在任何时刻存在的线程不超过50个，但我不确定您如何确定这一点。不仅如此，因为您已将
FreeOnTerminate
设置为
True
，从而放弃了对线程生存期的控制

我猜您的问题与您创建的线程数有关。每个处理器一个线程就足够了。重复使用你的线程。为一个小任务创建和销毁线程的成本很高

如果这还不足以解决您的问题，那么您需要显示管理线程生存期的代码

最后，我想知道你会从这个应用程序中获得多少好处。如果它是IO绑定的，那么线程版本可能会更慢
 根据给出的信息，不可能重现您的错误。
雷米和大卫给了你一些提示，可能会对你有所帮助

从程序的结构来看，流程可以分为两个经典解决方案

将任务委托给不同线程的第一部分是
单生产者多消费者问题。
在这里，可以通过创建少量线程，向它们传递一个线程安全的对象队列来解决这个问题。
然后，主线程将任务对象推送到队列中。使用者线程负责单个文件检查任务

将结果传输到主线程的第二部分是
多生产者单消费者问题。
如果在初始化时将第二个线程安全对象队列传递给线程，则线程可以轻松地将结果放入队列中。
在计时器事件中从主线程中排出结果队列
 @TLama已经这么做了。。。根据FastMM的说法，除了Delphi 7中的内存泄漏外，没有内存泄漏。@TLama 13-20字节：AnsiString x129-36字节：未知x145-52字节：TStringList x2我相信这些是Delphi本身的内存泄漏。如果我错了，请纠正我。我从未经历过Delphi本身的任何内存泄漏。Fastmm可以提供泄漏内存分配的调用堆栈，请确保已安装完整版本的Fastmm。除此之外，您没有显示如何填充
文件列表。我怀疑您的线程代码抛出了一个您无法处理的异常，绕过了对
TStringList.Free（）
的调用。添加
try/finally
块，或覆盖
DoTerminate（）
，以确保始终调用
Free（）
。@Jerry旧Delphis中的RTL/VCL泄漏。Emba在开始使用FastMM时就开始修复这些漏洞。我也这么认为，但看看更新问题，只有50个线程被创建并同时运行。@TLama有些东西不符合要求。Q中的代码不会泄漏。创建太多的线程是一种消耗所有虚拟地址空间的简单方法。@DavidHeffernan-这个程序遇到了什么故障模式？（创建/销毁线程，从不