Parse Funktion?

[lucius]

Nein marabu, ich habe die Zeilen nicht eleminiert.
So stehts in meinem Code

Delphi-Quellcode:

function TForm1.CreateStrings(s: string): TStrings;
var
  name, value: string;
  i: integer;
begin
  Result := TStringList.Create;
  Result.NameValueSeparator := ':';
  Result.Text := s;
  for i := 0 to Pred(Result.Count) do
  begin
    name := Trim(Result.Names[i]);
    value := Trim(Result.Values[name]);
    Result[i] := name + Result.NameValueSeparator + value;
  end;
end;

Dan rufe ich ueber einen Button.click die Function auf.

Delphi-Quellcode:

For Counter := 0 to SimpleRSS.Items.Count-1 do
Begin
  z := CreateStrings(SimpleRSS.Items.Items[Counter].Description); <-----

Oder muss der code irgendwo anders stehen? ListviewData?

[marabu]

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

[lucius]

Zitat:

Sobald du SimpleRSS geladen hast, musst du ListView1.Items.Count auf SimpleRSS.Items.Count setzen.

Uuuuu hab mal kurz nen blackout, was muss jetzt in Button.click rein sodas die ListviewDaten angezeigt werden?
Habe den Code in ListVIew1Data eingefuegt.

[marabu]

Moin Lucius,

bei einer virtuellen ListView ist das so, dass nur der item count direkt manipuliert wird - alles andere fragt die ListView selbst über ihre event handler ab. Nachdem die Komponente SimpleRSS den Feed geladen hat, musst du noch eine Zeile einfügen:

Delphi-Quellcode:

...
ListView.Items.Count := SimpleRSS.Items.Count;
...

Danach fragt die ListView über das Ereignis OnData() bei dir an, welche Daten sie für ein bestimmtes Item annehmen soll. Die einzige verlässliche Eigenschaft des Item ist zu diesem Zeitpunkt Index und über diesen Index musst du die richtigen Daten in SimpleRSS finden und an das Item übergeben.

Grüße vom marabu

[stoxx]

folgendes übernimmt TListview und ist falsch und muss raus:

Delphi-Quellcode:

// Neues Item erzeugen 
  listitem := listview1.Items.add;

und dann: (Item: jenes welches benutzen, dass Dir die Procedure selber übergibt)

Delphi-Quellcode:

  // Caption des Items setzen: 
  item.Caption := IntToStr(Succ(i)); 
  item.SubItems.add(SimpleRSS.Items[i].Title); 
  item.SubItems.add(z.Values['Category']);