OwnerData模式下TListView调用Items.Add致内存泄漏问题咨询

问题本质 #

当TListView开启OwnerData模式时，它处于虚拟列表工作状态——ListView本身不会存储实际的TListItem对象，而是通过OnData事件从你维护的数据源中获取内容来绘制界面。此时调用Items.Add会手动创建TListItem实例，但这些实例不在虚拟模式的内存管理流程里，ListView不会自动回收它们，所以程序关闭时会触发内存泄漏报告。

为什么手动Free或修改OwnerData无效？ #

• 直接FreeItems[0]或操作Items集合会崩溃：虚拟模式下Items的内部结构和非虚拟模式完全不同，手动释放会破坏ListView的内部状态，导致非法内存访问。
• 后续设置OwnerData := False无法解决：之前通过Items.Add创建的TListItem已经脱离了ListView的正常管理链路，即使切换模式，这些对象也不会被自动清理。

正确解决思路 #

1. 遵循虚拟列表的规范用法（推荐） #

虚拟列表的核心是自己维护数据源，通过OnData事件给ListView提供显示内容，绝对不要调用Items.Add：

// 示例：用TStringList作为自定义数据源
var
  MyDataSource: TStringList;

procedure TForm1.FormCreate(Sender: TObject);
begin
  MyDataSource := TStringList.Create;
  ListView1.OwnerData := True;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  MyDataSource.Free;
end;

procedure TForm1.ListView1Data(Sender: TObject; Item: TListItem);
begin
  // 根据Item.Index从数据源读取内容
  Item.Caption := MyDataSource[Item.Index];
end;

// 添加内容时操作数据源，再通知ListView更新
procedure TForm1.Button1Click(Sender: TObject);
begin
  ReportMemoryLeaksOnShutdown := True;
  MyDataSource.Add('blah');
  ListView1.Items.Count := MyDataSource.Count; // 同步条目数量
end;

2. 误操作后的补救清理（仅应急） #

如果已经调用了Items.Add，可以在Form销毁前按以下步骤清理泄漏，避免崩溃：

procedure TForm1.FormDestroy(Sender: TObject);
var
  I: Integer;
begin
  ListView1.OwnerData := False; // 先切换回非虚拟模式
  // 倒序遍历释放，避免索引错乱
  for I := ListView1.Items.Count - 1 downto 0 do
  begin
    ListView1.Items[I].Free;
  end;
  ListView1.Items.Clear;
end;

注意：这种方式只是临时补救，务必从根源上避免在虚拟模式下使用Items.Add。

内容的提问来源于stack exchange，提问作者hundreAd