delphi - 调用ShowMessage时如何修复内存泄漏？

Question

我有这样的代码:

ShowMessage(Memo1.Lines.GetText);

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

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

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

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

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

Answer 1

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

Allocates a text buffer and fills it with the value of the Text property.

... The caller is responsible for freeing the returned value using the StrDispose procedure.

在将缓冲区分配给 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;