Thema: Delphi Listview.Items.Insert ?

Einzelnen Beitrag anzeigen

lucius

Registriert seit: 6. Okt 2005
Ort: Niederlande
215 Beiträge
 
Delphi 7 Enterprise
 
#1

Listview.Items.Insert ?

  Alt 29. Nov 2005, 15:02
Hallo Leute,

Ich moechte meiner Listview von oben ab mit Neuen Eintragen fuellen.
Habe aber leider kein Plan wie ich das hinkriegen soll.
Habe schon etwas rumgeguckt hier im Forum aber irgendwie komm ich nicht weiter.
Delphi-Quellcode:
for o := 0 to w.Count -1 do
    begin
    listview.Items.BeginUpdate;
    x.Insert(0, w.Strings[o]);
    z := CreateStrings(SimpleRSS.Items.Items[o].Description);
      listitem := listview.Items.Insert[o]; <---------- Muesste richtig sein?
////////////////////Neu Eintraege///////////////////////////////
      listitem.Caption := IntToStr(Succ(o));
      z.Values['Added'] := Parse(' ', z.Values['Added'], 1);
      listitem.SubItems.Add(z.Values['Added']);
      listitem.SubItems.Add(z.Values['Category']);
      listitem.SubItems.Add(SimpleRSS.Items.Items[o].Title);
      listitem.SubItems.Add(z.Values['Size']);
      listitem.SubItems.Add(z.Values['Status']);
      listitem.SubItems.Add(z.Values['Speed']);
      listitem.SubItems.Add(SimpleRSS.Items.Items[o].Link);
      listitem.SubItems.Add(z.Values['Download']);
///////////////////////////////////////////////////////////////
      Neu.Caption := 'Anzahl NEUE Items: ' + IntTostr(w.count);
    z.Free;
    listview.Items.EndUpdate;
    end;
Kann mir da einer bitte weiterhelfen?
Besten Dank im voraus.
  Mit Zitat antworten Zitat