Datenbankfelder in Listview einlesen ?

[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