调用 ShowMessage 时如何修复内存泄漏？答案

【问题标题】：How to fix memory leak when calling ShowMessage?调用 ShowMessage 时如何修复内存泄漏？
【发布时间】：2021-05-25 14:00:57
【问题描述】：

我有这样的代码：

ShowMessage(Memo1.Lines.GetText);

Delphi 告诉我该代码导致了泄漏：

我尝试使用以下代码修复它：

var
  Message:string;
begin
  Message := Memo1.Lines.GetText;
  try
    ShowMessage(Message);
  finally
    FreeAndNil(Message)
  end;

它以某种方式工作，但之后程序会自动强制关闭。

有没有办法避免这种情况下的内存泄漏？

【问题讨论】：

标签： delphi

【解决方案1】：

TStrings.GetText() 方法返回一个指向动态分配缓冲区的 PChar 指针，根据文档，该缓冲区必须使用 StrDispose() 释放：

分配一个文本缓冲区并用Text 属性的值填充它。

...调用者负责使用StrDispose 过程释放返回的值。

在将缓冲区分配给 string 变量后，您并没有释放该缓冲区，因此内存泄漏与 ShowMessage() 本身无关。

要解决这个问题，您的代码需要看起来更像这样：

var
  Message: PChar;
begin
  Message := Memo1.Lines.GetText;
  try
    ShowMessage(Message);
  finally
    StrDispose(Message);
  end;
end;

更好的选择是使用TStrings.Text 或TControl.Text 属性而不是TStrings.GetText() 方法。编译器可以为你管理分配的内存：

var
  Message: string;
begin
  Message := Memo1.Lines.Text;
  // or: Message := Memo1.Text;
  ShowMessage(Message);
end;

【讨论】：