Datenbankfelder in Listview einlesen ?

[needatip]

Kann man in die Listview-Komponente die Datenbankfelder auch mit einer Zeile einlesen wie z. B. mit einer Listbox?
z. B. bei Listbox etwa so:

Delphi-Quellcode:

Table1.GetFieldNames(ListBox1.Items)

[marabu]

Hallo,

es gibt keine vergleichbar einfache Lösung für die ListView, aber was hättest du gewonnen? Du verwendest die ListView bestimmt an Stelle einer ListBox um mehrere Informationen zu einem Feld in Spalten anzuzeigen. Da fände ich es viel bequemer, wenn die ListView virtuell betrieben würde und sich bei Bedarf die Daten für jedes Item direkt aus der Feldliste der Dataset-Komponente holen würde.

Frohe Weihnachten

[needatip]

ok, meinst du etwa so...

Delphi-Quellcode:

With ListView1 do
  for i:= 0 to Table1.FieldCount -1 do
  begin
    ListItem:= Items.Add;
    ListItem.Caption := Table1.Fields[i].FieldName;
  end;

[marabu]

Nein, eher so:

Delphi-Quellcode:

procedure TDataForm.TableAfterOpen(DataSet: TDataSet);
begin
  ListView.Items.Count := DataSet.FieldCount;
end;

procedure TDataForm.TableBeforeClose(DataSet: TDataSet);
begin
  ListView.Items.Count := 0;
end;

procedure TDataForm.ListViewData(Sender: TObject; Item: TListItem);
begin
  with Item do
  begin
    Caption := Table.Fields[Index].FieldName;
    // ...
  end;
end;

Dabei muss ListView.OwnerData auf True gesetzt sein.

Freundliche Grüße

[needatip]

:thumb: Ok, ist die elegantere Lösung.
Danke.