Listview OwnerData

[lucius]

Hallo Leute,

Ich habe eine Listview die wird mit 600 Eintraegen gefuehlt, die Property OwnerData steht auf false.
Ich muss OwnerData auf false setzen weil sonst die Eintraege nicht zu sehen sind.
Jetzt geht mir das befuellen der Liste zu langsam +- 3 Sekunden, ich moechte aber das das befuellen so schnell wie moeglich geht, ich erreiche das unterandern durch OwnerData auf true zu setzen aber dan sind die Eintraege nicht mehr zu sehen.
Hier der Code der die Liste befuellt.

Delphi-Quellcode:

procedure THaupt.Button1Click(Sender: TObject);
Var
i: Integer;
listitem : TListItem;
z: TStrings;
begin
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
      z := CreateStrings(SimpleRSS.Items.Items[i].Description);
      Listbox1.Items.Add(SimpleRSS.Items.Items[i].Link);
      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']);
      Listbox2.Items.add(z.Values['Download']);
      Groupbox2.Caption := 'Aantal torrents:  ' + IntTostr(SimpleRSS.Items.Count);
      z.Free;
      Listview.Invalidate;
      end;
 end;
end;

Was kann/muss ich aendern damit ich OwnerData auf true setzen kann oder die Befuellung schneller geht?
Oja Listview.Items.BeginUpdate, EndUpdate hat keinen Zweck, schon probiert.
Danke im voraus.

Gruss Lucius.

[mumu]

folgendes sollte helfen

Delphi-Quellcode:

procedure THaupt.Button1Click(Sender: TObject); 
Var 
i: Integer; 
listitem : TListItem; 
z: TStrings; 
begin 
if FileExists(label17.caption + 'rss.xml') then 
Begin 
Listview.Clear; 
Listbox1.Clear; 
Listbox2.Clear; 
SimpleRSS.LoadFromFile(label17.caption + 'rss.xml'); 
 
[color=#ff0000]ListView.BeginUpdate;[/color]

   For i := 0 to SimpleRSS.Items.Count - 1 do 
   Begin 
      z := CreateStrings(SimpleRSS.Items.Items[i].Description); 
      Listbox1.Items.Add(SimpleRSS.Items.Items[i].Link); 
      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']); 
      Listbox2.Items.add(z.Values['Download']); 
      Groupbox2.Caption := 'Aantal torrents:  ' + IntTostr(SimpleRSS.Items.Count); 
      z.Free; 
      Listview.Invalidate; 
   end;

[color=#ff0000]ListView.EndUpdate;[/color]
 
end; 
end;

[lucius]

Hi mumu, deine Erweiterung klappt nicht und muesste es nicht Listview.Items.BeginUpdate sein?

[mumu]

ja natürlich, sorry...
ListView.Items.BeginUpdate;
...
ListView.Items.EndUpdate;

[mumu]

Zitat:

Oja Listview.Items.BeginUpdate, EndUpdate hat keinen Zweck, schon probiert.

oops hab ich ja ganz überlesen... sorry :oops:

[lucius]

BeginUpdate und EndUpdate hat keinen Zweck, ich muesste irgendwie OwnerData auf TRUE kriegen koennen denke ich, dan waehre die Listview auch schneller aber wie?

[Luckie]

Zitat:

Zitat von lucius

Ich muss OwnerData auf false setzen weil sonst die Eintraege nicht zu sehen sind.

Warum gibt s denn dann diese Eingeschaft? hast du dich das noch nicht gefargt? Guck mal im Delphi verzeichnis bei den Demos, da gibt es eine Demo zum Virtuall Listview.

[lucius]

Hi Luckie, also ich muesste den code von Button1.Click in ListViewData eintragen?
Und wie greife ich dan ueber den Befehl Button1.Click auf die Listview zu damit ListViewData ausgefuehrt wird?

[lucius]

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.

[lucius]

Gibt es niemand der mir da helfen kann?
Waehre sehr wichtig.

[dahead]

also erstmal solltest du erst nach 24h um weitere hilfe bitten, zweitens schreibt man wäre ohne h. drittens: an welcher stelle tritt der Stack Overflow auf? hast du den tipp mit beginupdate/endupdate schon berücksichtigt?

warum verwendest du TStrings statt TStringList?

edit:

- wg. "wäre": tut mir leid, kann es sein dass du niederländer bist? wg. "aantal" -> "anzahl"?
- du solltest niemals dateinamen aus Label-Captions verwenden:

Delphi-Quellcode:

if FileExists(label17.caption + 'rss.xml') then

speichere lieber die akt. Datei in einer variablen und verwende stattdessen diese.

- du solltest außerdem nicht während die ListView gefüllt wird, noch herumrechnen. die daten fürs befüllen sollten bereits vorher vorliegen (in einem array oder dergleichen). ich nehme an, du speicherst irgendwelche werte in einer listbox, kann das sein? falls ja, auch das solltest du lassen.

[lucius]

Hi dahead, in manche Sachen hast du ja recht und ich bin nog Anfaenger in Delphi also bitte nicht so streng hingucken.

Zitat:

warum verwendest du TStrings statt TStringList?

Weil die Variable z noch vorher mittels einer Function CreateStrings(beinhaltet TStringList) geparsed werden muss bevor Sie in der Listview eingetragen wird.

Gruss Lucius..