delphi - 如何完成 threadvar 字符串以防止泄漏？

Question

这不是一个重大泄漏，但我认为更重要的是整理一下，但我发现我的 Delphi XE 代码 can leak a String 。这是因为它被定义为一个 threadvar，因为它需要，但是当线程终止时，它显然没有清理这些变量。

有没有办法让我在线程终止时手动整理字符串？我是否只为其分配一个空字符串，或者将其设置为 nil 或其他什么？

Answer 1

为其分配一个空字符串，将其设置为 nil 或对其调用 Finalize() 。它们都是等效的，并且它们将释放存储空间，从而消除内存泄漏。

<小时/>

为了回应 Marco 的评论，documentation对此有明确说明:

Dynamic variables that are ordinarily managed by the compiler (long strings, wide strings, dynamic arrays, variants, and interfaces) can be declared with threadvar, but the compiler does not automatically free the heap-allocated memory created by each thread of execution. If you use these data types in thread variables, it is your responsibility to dispose of their memory from within the thread, before the thread terminates. For example:

threadvar
  S: AnsiString;

S := 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
  ...
S := ;  // free the memory used by S

相当奇怪的是，文档的最后一行包含一个明显的错误，应为 S := nil;

您自己当然很容易看出线程局部变量不会自动释放:

program LeakMe;

{$APPTYPE CONSOLE}

threadvar
  s: string;

begin
  ReportMemoryLeaksOnShutdown := True;
  s := 'Leak me';
end.