Thema: Delphi Listview OwnerData

Einzelnen Beitrag anzeigen

lucius

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

Re: Listview OwnerData

  Alt 17. Nov 2005, 15:24
So ich habe jetzt folgendes gemacht in ListviewData:
Delphi-Quellcode:
procedure THaupt.ListViewData(Sender: TObject; Item: TListItem);
Var
i: Integer;
listitem : TListItem;
z: TStrings;
begin
      z := CreateStrings(SimpleRSS.Items.Items[i].Description);
      listitem := listview.Items.add;
      listitem.Caption := IntToStr(Succ(i));
      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[i].Title);
      listitem.SubItems.add(z.Values['Size']);
      listitem.SubItems.add(z.Values['Status']);
      listitem.SubItems.add(z.Values['Speed']);
      z.Free;
end;
und in Button1.Click:
Delphi-Quellcode:
if FileExists(label17.caption + 'rss.xml') then
 Begin
 Listview.Clear;
 Listbox1.Clear;
 Listbox2.Clear;
  SimpleRSS.LoadFromFile(label17.caption + 'rss.xml');
    For i := 0 to SimpleRSS.Items.Count - 1 do
      Begin
      Listview.Items.Count := SimpleRSS.Items.Count;
      Listview.Repaint;
      end;
 end;
OwnderData steht jetzt auf TRUE.
Aber ich bekomme nen Stack Overflow??
Bitte Hilfe.
  Mit Zitat antworten Zitat