AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Nur neue Eintraege in Listview anzeigen.

Ein Thema von lucius · begonnen am 23. Nov 2005
Antwort Antwort
lucius

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

Nur neue Eintraege in Listview anzeigen.

  Alt 23. Nov 2005, 14:38
Hallo Leute,

Bin dabei ein Programm zu entwickeln das RSS Feeds bearbeitet.
Die bearbeitung passiert unter anderem durch die SimpleRSS Komponente.
Beim erststart des Programms wird die Komplette XML Datei(650 Eintraege) vom Server geholt, bearbeitet und in einer Listview(OwnerData=False) angezeigt.
Delphi-Quellcode:
For i := 0 to SimpleRSS.Items.Count - 1 do
      Begin
      z := CreateStrings(SimpleRSS.Items.Items[i].Description);
      listitem := listview.Items.add;
      listitem.Caption := IntToStr(Succ(i));
      ///Zeit vom Datum trennen///
      z.Values['Added'] := Parse(' ', z.Values['Added'], 1);
      ///Datum anzeigen///
      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']);
      listitem.SubItems.Add(SimpleRSS.Items.Items[i].Link);
      listitem.SubItems.Add(z.Values['Download']);
      Anzahl.Caption := 'Anzahl: ' + IntTostr(SimpleRSS.Items.Count);
      z.Free;
      end;
Das klappt alles wunderbar und jetzt moechte ich folgendes realisieren, ich moechte mir eine Vergleichsdatei anlegen mittels einer TStringListe die nur die Namen der Eintraege beinhaltet
sl.Add(SimpleRSS.Items.Items[i].Title); Die wird dann beim beim naechsten Update des RSS Feeds mit die ersten 30 Eintraege verglichen
Delphi-Quellcode:
simplerss.LoadFromHTTP('http://www.meineurl/rss.php');
For i := 30 downto SimpleRSS.Items.Count -1 do
Wie kann ich das am besten machen, denn die SubItems(z.Values['Added'], z.Values['Category'], z.Values['Size'], z.Values['Status'], z.Values['Speed'], SimpleRSS.Items.Items[i].Link, z.Values['Download']) sollen dabei nicht verloren gehen und wenn es Neue Eintraege gibt mit in der Listview angezeigt werden.
Ich nehme mal an mit TStringListen.
Erstmal recht herzlichen Dank.

Lucius.
  Mit Zitat antworten Zitat
Alt 23. Nov 2005, 17:13     Erstellt von lucius
Dieser Beitrag wurde von Sharky gelöscht. - Grund: Pushing bitte frühestens nach 24 Stunden. Danke
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:18 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz