您不需要明确分配字符串。 除了处理参考数字外, 对象或记录的字符串字段也可能泄漏。 例如,

type
  PRecord = ^TRecord;
  TRecord = record
    S: string;
  end;

procedure TForm1.Button4Click(Sender: TObject);
var
  r: PRecord;
begin
  GetMem(r, SizeOf(r^));
  Initialize(r^);
  r.S :=    ;
  FreeMem(r);

在上述例子中,由于记录本身的内存已解开,快MM将只报告泄漏的字符串。

在任何情况下, FastMM 在对话框中未显示堆放踪迹并不意味着它缺少此信息 。 请确认在可执行文件目录中有 < code> Full DebugMode 、 < code> LogMemory Leak DetailToFile 和 LogErrorsToFile 的定义是 FastM4Opps. inc 。 然后查找 [可执行名]_MemoryManager_ventLog. txt文件 。

对于上述例子,FastMM 生成以下文件:

--------------------------------2012/5/27 4:34:46--------------------------------
A memory block has been leaked. The size is: 12

Stack trace of when this block was allocated (return addresses):
40305E 
404B5D 
404AF0 
45C47B 
43D726 
42B0C3 
42B1C1 
43D21E 
76C4702C [GetWindowLongW]
77AE3CC3 [Unknown function at RtlImageNtHeader]

The block is currently used for an object of class: Unknown

The allocation number is: 484

Current memory dump of 256 bytes starting at pointer address 7EF8DEF8:
01 00 00 ...
...

现在您可以运行该应用程序, pause 它,然后搜索地址。对于上述日志和测试应用程序,地址确定为:

Stack trace of when this block was allocated (return addresses):
40305E    -> _GetMem
404B5D    -> _NewAnsiString
404AF0    -> _LStrAsg
45C47B    -> TForm1.Button4Click (on FreeMem line)
43D726    -> TControl.Click
... 

edit: Instead of manually looking up addresses, generate a detailed map file through linker options and FastMM will do it (thanks to Mason s comment).

您对问题的编辑反映了与上述示例中相似的泄漏。 如果 fList 是常规 < code> TList , 它只是持有指针, 并且不知道这些指针指针指向什么。 因此, 当您处置指针时, 只释放了为指针本身分配的内存, 而不是记录字段。 因此, 泄漏与函数传递的常数无关, 但和下面的模式一样 :

var
  assembleditem: PCodeIns;
  p: Pointer;
begin
  new(assembleditem);
  assembleditem^.Caption:= a ;
  ..    
  p := assembleditem;
  Dispose(p);

要处置记录,代码应按类型键入指针:

Dispose(PCodeIns(p));

所以,你的TCodinsList。 破坏应该是:

destructor TCodeInsList.Destroy;
var
  I: integer;
begin
  for I := 0 to fList.Count - 1 do
    Dispose(PCodeIns(fList[I]));
  fList.Free;
  inherited Destroy;
end;

在结尾处, 您所要查找的图案似乎正在寻找代码意在释放含有字符串字段的记录( 不太可能的物件) 的地方。 寻找 < code> dispose , 可能性略小于 FreeMem , 更少的可能性 FreeInstance 来释放 FastMM 显示作为分配内存泄漏的对象/ 记录。