ListView Add "Datum" Items

[DeddyH]

Du musst auch zuerst abfragen, ob Deine Datenmenge Sätze enthält.

Delphi-Quellcode:

ADOQuery1.Open;
if not ADOQuery1.EOF then
  begin
      ///////////////////////////////////////////////////////////////////////////
      ///  Werte der DB in ListView hinzufügen, wenn vorhanden.
      Item := Listview.Items.Add;
      Item.Caption := IntToStr(x) + '.';
      Item.SubItems.Add(ADOQuery1.FieldByName('Tag').Value);
      Item.SubItems.Add(ADOQuery1.FieldByName('Datum').Value);
  end;