Thema: Delphi Parse Funktion?

Einzelnen Beitrag anzeigen

marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge
 
#12

Re: Parse Funktion?

  Alt 15. Nov 2005, 22:12
So ist es - weil du mit einer virtuellen ListView arbeitest, musst du die Spaltenwerte im OnData-Ereignis der ListView übergeben.

Delphi-Quellcode:
procedure TDemoForm.ListView1Data(Sender: TObject; Item: TListItem);
var
  i: integer;
begin
  i := Item.Index;
  z := CreateStrings(SimpleRSS.Items[i].Description);
  lstbxheadlines.Items.Add(inttostr(i) + '-' + SimpleRSS.Items.Items[i].Title);
  // Neues Item erzeugen
  listitem := listview1.Items.add;
  // Caption des Items setzen:
  listitem.Caption := IntToStr(Succ(i));
  listitem.SubItems.add(SimpleRSS.Items[i].Title);
  listitem.SubItems.add(z.Values['Category']);
  // ...
  z.Free;
end;
Sobald du SimpleRSS geladen hast, musst du ListView1.Items.Count auf SimpleRSS.Items.Count setzen.

marabu
  Mit Zitat antworten Zitat