Vielen Dank, an Euch.
Delphi-Quellcode:
1. Mit FindFirst/FindNext/FindClose auch Order mit auflisten.
2. ListView1.Items.BeginUpdate vor allem und ListView1.Items.EndUpdate nach allem verwenden verkürzt die Zeit, die das Listview zum Aufbau braucht, als ersten Schritt.
3. Zweiter Beschleunigungsschritt wäre, das ListView virtuell zu machen, also ListView1.OwnerData := true, dann jeweils ListView1.Items.Count := AnzahlDateienUndOrdner, und in OnData jeweils zu füllen; Quelle wie genannt ein z.B. ein array of record, ganz komfortabel eine TCollection (Topic #6 von Dezipaitor).
4. Neue Komponente TShellListView installieren und verwenden (#7 von Hawkeye219).
5. TVirtualStringTree komplett selber handhaben (#4 von mkinzler).
Klappt sehr gut. Habe jetzt auch Verzeichnisse und Dateien, nur wie kann ich Verzeichnisse von Dateien unterscheiden. Habe sie durcheinander, mal ein Verzeichnis mal eine Datei usw. gut wäre wenn z.B. erst alle Verzeichnisse und dann alle Dateien angezeigt würden.
Gruß
Heike