Objekt in ListView ablegen + Zusatzspalte

[Bernhard Geyer]

Du solltest nicht mit Items.Add dir ein neues Item besorgen sondern das vorhandene Verwenden:

Delphi-Quellcode:

  var
    Item: TTreeNode;
  begin
    ...
    with DBInhalt.ListView1 do
    begin
      Item := AddItem(Name2.Strings[i], Laden);
      Item.SubItems.add(Anzahl.Strings[i]);
    end;