请问，要如何才能把ListView和数据库联系到一起，即用ListView显示数据库中的内容？

Question

procedure TForm1.ToolButton1Click(Sender: TObject);
var
  i, iCount: integer;
begin
  with ListView1, Table1 do
  begin
    iCount := RecordCount;
    ProgressBar1.Max := iCount;
    Items.BeginUpdate;
    Items.Clear;
    for i := 1 to iCount do
    begin
      RecNo := i;
      ProgressBar1.Position := i;
      with Items.Add do
      begin
        ImageIndex := 0;
        Caption := Fields[0].AsString;
        SubItems.Add(Fields[1].AsString);
        SubItems.Add(Fields[2].AsString);
        SubItems.Add(Fields[3].AsString);
      end;
    end;
    ProgressBar1.Position := 0;
    Items.EndUpdate;
  end;
end;我有一个例子，你要不要呀.
[email protected]

Answer 1

实现很简单，把对应表重的列和行写到ListView中就行了，但是如果你的数据量较大，建议你不要用ListView，因为它的效率比较低。