如何从delphi中的按钮添加重复数据？

我有两个表单，每个表单都有TListview（用于显示我刚才添加的数据）。 当我尝试添加来自form1的数据时，在Listview（form1）中，它是可以显示的。但是，如果我从form1添加数据，我还希望自动添加Listview（form1）和Listview（Form2）

这是我的密码：

procedure TForm1.btnAddClick(Sender: TObject);
var
  data1,data2    : TListItem;
  m1,m2,m3       : String;
  dat            : TForm2;
begin
  m1 := EMom1.Text;
  m2 := EMom2.Text;
  m3 := EMom3.Text;

  //listview form1
  data1 := ListView1.Items.Add;
  data1.Caption := m1;
  data1.SubItems.Add(m2);
  data1.SubItems.Add(m3);

  //listview form2  
  data2 := dat.ListView1.Items.Add; {error on this code}
  data2.Caption := m1;
  data2.SubItems.Add(m2);
  data2.SubItems.Add(m3);

变量

dat

尚未初始化。我希望编译器会警告你这一点。我希望您启用了提示和警告

您需要提供对

TForm2

实例的有效引用。我对你的计划了解不够，不知道你从哪里可以得到推荐信。大概你知道答案

还应提取列表视图项，将代码添加到方法中：

procedure AddListItem(lv: TListView; s1, s2, s3: string);

然后可以通过两个不同的列表视图调用此函数两次

---

最后，如果您能够切换到使用虚拟列表视图，您将不需要两个数据副本

谢谢。。真的很有帮助。

procedure AddListItem(lv: TListView; s1, s2, s3: string);