数据库查询到的值放入listview中解决思路

var
  item:TlistItem;
begin
  while not ADOQuery1.Eof do
  begin
    item := ListView1.Items.Add;
    item.Caption := ADOQuery1.FieldByName('xx').AsString;
    item.SubItems.Add(ADOQuery1.FieldByName('xx').AsString);
    ADOQuery1.Next;
  end;
end;

------解决方案--------------------

Delphi(Pascal) code

var
  D: TDataSet;
begin
  D := ADoTable1;
  D.Open;

  D.First;
  while not D.Eof do
  begin
    with ListView1.Items.Add do
    begin
      Caption := D.Fields[0].AsString;
      with SubItems do
      begin
        Add(D.Fields[1].AsString);
        Add(D.Fields[2].AsString)
      end
    end;
    D.Next
  end;
end;