ListView mit OwnerData schneller machen?

[OrNEC]

Hallo,

ich habe eine ListView, die mit der Zunahme der Daten total langsamer wird. Nun habe ich gelesen, dass man mit OwnerData sozusagen eine virtuelle LV machen kann und die Daten im Ereignis OnData lädt. Nun lade ich die Daten wie folgt in die LV, wie mache ich das jetzt mit OnData? Ich fülle die LV noch an anderen Stellen, muss auch das in die OnData? Irgendwie verstehe ich das ganze nicht so richtig. Danke!

Delphi-Quellcode:

procedure TForm1.ShowMedia();
var dbFile: String;
    db: TSQLiteDatabase;
    tb: TSQLIteTable;
    MyItem: TListItem;
    s: String;
begin
  // ListView Eintraege loeschen
  MediaListView.Clear;
  EntleiherListView.Clear;

  dbFile := ExtractFilePath(ParamStr(0)) + 'Database.db';
  db := TSQLiteDatabase.Create(dbFile);
  try

    // Datensaetze der media Tabelle einlesen
    tb := db.GetTable('SELECT media.id_media,'
    + 'media.mediatitle, '
    + 'media.description,'
    + 'place.planame, '
    + 'mediatype.mtypename, '
    + 'category.catname, '
    + 'entleiher.elastname, '
    + 'entleiher.efirstname, '
    + 'author.aname '
    + 'FROM media '
    + 'LEFT JOIN place ON media.fk_place_id=place.id_place '
    + 'LEFT JOIN mediatype ON media.fk_mediatype_id=mediatype.id_mediatype '
    + 'LEFT JOIN category ON media.fk_category_id=category.id_category '
    + 'LEFT JOIN language ON media.fk_language_id=language.id_language '
    + 'LEFT JOIN author ON media.fk_author_id=author.id_author '
    + 'LEFT JOIN entleiher ON media.fk_entleiher_id=entleiher.id_entleiher ORDER BY media.mediatitle ASC');
    try
      // Alle Datensaetze in die ListView einlesen
      if tb.Count > 0 then
      begin
        while not tb.EOF do
        begin
          MyItem := MediaListView.Items.Add;
          MyItem.Data := Pointer(tb.FieldAsInteger(tb.FieldIndex['id_media'])); //data mit ids fuellen
          MyItem.Caption := tb.FieldAsString(tb.FieldIndex['mediatitle']);
          MyItem.SubItems.Add(tb.FieldAsString(tb.FieldIndex['aname']));
          MyItem.SubItems.Add(tb.FieldAsString(tb.FieldIndex['description']));
          MyItem.SubItems.Add(tb.FieldAsString(tb.FieldIndex['mtypename']));
          MyItem.SubItems.Add(tb.FieldAsString(tb.FieldIndex['catname']));
          MyItem.SubItems.Add(tb.FieldAsString(tb.FieldIndex['planame']));
          MyItem.SubItems.Add(tb.FieldAsString(tb.FieldIndex['elastname']) + ' ' + tb.FieldAsString(tb.FieldIndex['efirstname']));
          tb.Next;
        end;
      end;

    finally
      tb.Free;
    end;


  finally
    db.Free;
  end;

  // Anzahl der Datensaetze anzeigen
  ShowListCount();

end;

[sx2008]

Warum verwendest du denn kein TDBGrid?
Das DBGrid macht im Prinzip nichts anderes als dein Dataset (TSQLIteTable) in einen speziellen Status (dsBlockRead) zu versetzen und so viele Zeilen auszulesen wie gerade angezeigt werden müssen.

[OrNEC]

Jah... ich möchte ohne Delphi-Komponenten auskommen.

[Bjoerk]

Was ziemlich viel bringt ist Begin/EndUpdate

Delphi-Quellcode:

  MediaListView.Items.BeginUpdate;
  try
    MediaListView.Items.Clear;

    ..

  finally
    MediaListView.Items.EndUpdate;
  end;

[OrNEC]

Zitat von Bjoerk:

Was ziemlich viel bringt ist Begin/EndUpdate

Delphi-Quellcode:

  MediaListView.Items.BeginUpdate;
  try
    MediaListView.Items.Clear;

    ..

  finally
    MediaListView.Items.EndUpdate;
  end;

Wieso bringt das was? Meinst Du die LV wird schneller? Die LV ist vor allem dann langsam wenn man die Anwendung/Fenster größer zieht oder maximiert/minimiert.

[Furtbichler]

Verwende doch den virtuellen Modus der TListView.

[OrNEC]

Zitat von Furtbichler:

Verwende doch den virtuellen Modus der TListView.

Habe ich doch auch vor. Das geht doch mit der OwnerData, oder? Hast Du meinen ersten Post gelesen?

[Furtbichler]

Ich werde alt und grenzdebil. Entschuldige.

[OrNEC]

Zitat von Furtbichler:

Ich werde alt und grenzdebil. Entschuldige.

Kein Problem... kann passieren.

[Popov]

Ich hab zwar schon früher mit ListView gearbeitet, aber letzte Woche zum erstem mal mit paar tausend Daten. Meine Erfahrung waren die: ich hab einen Ordner mit etwa 3000 Daten geladen (zuerst alle wichtigen Daten in eine Liste mit Objekten). Der Aufbau der LV hat fast 10 Sekunden gedauert. Nachdem ist es etwas optimiert habe waren es immer noch 5 Sekunden. Natürlich war das nicht akzeptabel, also habe ich ganz anders gemacht.

Zuerst wurde pro Datei ein Item erstellt und nur das Caption gefüllt, inkl. Grund-Icon (leeres Dokument-Icon). Das dauerte 50 ms. Erst im zweiten Schritt wurden die anderen Infos eingespielt, aber eben nicht alles auf einmal, es wurde nur immer der Teil von LV aktualisiert, der sichtbar war. Der Vorgang dauerte etwas über 100 ms. Wurde LV gescrollt, wurde der Teil aktualisiert.

Da die Daten im Objekt am Item sind, spielt es keine Rolle ob LV komplett gefüllt ist.

Wenn dir die Methode nicht gefällt, im Demo-Ordner von Delphi (zumindest in Delphi 7) ist ein tolles Beispiel zu LV ("Virtual Listview"), aber etwas kompliziert. Dafür aber sehr schnell, noch schneller als meine Lösung.