在ListView RAD Studio Delphi 10.2中添加项目

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）。