Listview.Clear dauert zu lange. Gibt es eine schnellere Methode?

[juergen]

Hallo zusammen,

ich verwende eine Listview welche schon mal einige tausend Datensätze enthalten kann. Die Datensätze werden beim wechseln von TabPage1 auf TabPage2 generiert und die Listview zeígt diese dann an.
Wenn ich wieder auf Tab1 wechsel wird der Inhalt der Listview mit Clear gelöscht.
Das dauert schon mal einige Sekunden...
Gibt es hierfür eine schnellere Methoden?


Danke schon mal vorab!

[mkinzler]

Hast du die Anpassung der Anzeige währrend des Löschvorgangs abgeschaltet?

[juergen]

ich habe in ComCtrls.pas gesehen, dass beim Clear schon ein BeginUpdate/EndUpdate ausgeführt wird.
Oder meinst du was ganz anderes?

[mkinzler]

Nein, das habe ich gemeint.

[Keldorn]

Hallo

wenn das löschen schon so lange dauert, was meinst Du, wielange dann das Erstellen dauert .
wenn Du wirklich tausende anzeigst, wird das ganz schnell ganz langsam.

Hast Du Dir schonmal den virtuellen Modus des Listviews angeschaut? Damit wird beides um Einiges schneller.

Gruß Frank

[juergen]

Hallo Frank,

ich habe mich damals für die Listview entschieden, weil ich schnell zum Ergebnis kam (benötigt wurden Chekcboxen und mehrere Spalten). Im Moment scheue ich mich auch mich in Virtual Treeview einzuarbeiten.

Das man eine Listview in den virtuellen Modus setzen kann ist mir neu.
Wie geht das?
Bei einer Listbox z.B. kenne ich das über die Eigenschaft Style. Aber bei einer Listview?

Edit: Habe es gerade gefunden... Virtueller Modus wird über OwnerData aktiviert. Ich teste das ganze mal.

Schon mal Danke an Euch beiden für die Antworten!

[FredlFesl]

Nimm doch einfach den VirtualMode (OwnerData=True), dann kannst Du 100.000.000.000 Einträge haben und sowohl der Aufbau als auch das Clear geht in 0.01ns (geschätzt)

[jaenicke]

Wobei ich da eine VirtualStringTree besser finde, die kann viel mehr. Und ist auch nicht schwerer zu benutzen.

Delphi-Quellcode:

type
  // Die Datenklasse
  TMyData = class
  private
  public
    property FirstColumnData: string ...
  end;

  // Die Liste der Daten
  TMyDataList = class(TObjectList<TMyData>);

// initialisieren
vstListDisplay.NodeDataSize := SizeOf(TMyData);
MyDataList := TMyDataList.Create(True);

// Neuen Knoten erzeugen
MyData := TMyData.Create;
MyData.FirstColumnData := ...;
MyDataList.Add(MyData);
vstListDisplay.AddChild(nil, MyData);

// vstListDisplay.OnGetText implementieren
case Column of
  0:
    CellText := TMyData(vstListDisplay.GetNodeData(Node)^).FirstColumnData;
...

Das sollte alles gewesen sein, so aus dem Kopf geschrieben...

[FredlFesl]

Stümmt, ich sehe in deinem Code aber nicht, wo auf die Liste verwiesen wird, oder wie ich auf den x.ten Eintrag komme.
Außerdem dachte ich immer, die Virtual TreeList arbeitet mit Records.

[Bernhard Geyer]

Zitat von juergen:

Im Moment scheue ich mich auch mich in Virtual Treeview einzuarbeiten.

Falls du nicht viel Umstellen willst wäre das TElTreeStringgrid vom Elpack (LMD) zu empfehlen. Kann im "normalen" Modus arbeiten und ist dort um welchen schneller als die WinAPI