如何在Delphi 10.2 Tokyo中将两个Memo内容导入ListView？

准备工作 #

• 确保你的ListView控件ViewStyle属性设置为vsReport（仅该视图支持显示子项）
• 打开ListView的列编辑器（右键ListView → Columns Editor），添加至少两列：
  • 第一列对应Memo1的行内容（作为主标题列）
  • 第二列对应Memo2的行内容（作为子项列）

实现代码 #

你可以在按钮点击事件中添加以下代码，或者封装成独立过程调用：

procedure TForm1.ImportMemosToListView(Sender: TObject);
var
  I: Integer;
  NewListItem: TListItem;
begin
  // 清空ListView原有内容
  ListView1.Clear;

  // 遍历两行数中较小的范围，避免数组越界
  for I := 0 to Min(Memo1.Lines.Count - 1, Memo2.Lines.Count - 1) do
  begin
    NewListItem := ListView1.Items.Add;
    // 绑定Memo1的行到ListView的Caption
    NewListItem.Caption := Memo1.Lines[I];
    // 绑定Memo2的行到ListView的SubItem
    NewListItem.SubItems.Add(Memo2.Lines[I]);
  end;
end;

额外说明 #

• 使用Min函数是为了处理两个Memo行数不一致的情况，避免数组访问越界
• 若需处理行数不一致的场景（比如某一Memo行数更多），可根据需求调整逻辑：
  • 例如，给行数少的Memo后续行填充空字符串
  • 或者仅处理到两者都存在的行
• 注意代码中控件名称要与项目内实际名称一致，如有修改需同步调整

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