在ListView中添加多行项目

Question

我想显示一个带有

TListView

 的列表，该列表是用我的数据库中的数据生成的。
但我的代码只显示列表中的一项。

它应该看起来像一个简短的列表，其中包含地址、名称 1、名称 1 等文本，就像这张图片所示：

图片上的视图代码：

procedure TForm2.RefreshButton1Click(Sender: TObject); 
var
 queryListClient : TFDQuery;
 ItemAdd : TListViewItem;
begin
  queryListClient := TFDQuery.Create(Nil);
  queryListClient.Connection := FDConnection1;

  queryListClient.SQL.Clear;
  queryListClient.SQL.Add('Select * from Projekt ORDER by ProjNr');
  queryListClient.Open();
  queryListClient.First;

  List_Clients1.Items.Clear;
  List_Clients1.BeginUpdate;
  while Not queryListClient.Eof do
  begin
    ItemAdd := List_Clients1.Items.Add;
    ItemAdd.Text := queryListClient.FieldByName('Name1').AsString;
    ItemAdd.Detail := queryListClient.FieldByName('Name2').AsString;
    queryListClient.Next;
  end;
  List_Clients1.EndUpdate;
  queryListClient.Close;
  queryListClient.Free;
end;

现在的样子：

Answer 1

您可能没有将 listview SYNC 属性链接到您的数据集（LiveBindings Designer）。