Forum: Object-Pascal / Delphi-Language
Delphi
by Tom,
22. Jun 2004
Du scannst ja doppelt. Fasse doch die beiden Suchschleifen zusammen, ala Pseudo-dirs := TstringList.create ...
Findfirst ...
repeat
if verzeichnis then dirs.add ... else Rueckgabe.add ...
until findnext ...;
for i := 0 to dirs.count -1 do DurchsucheDir;
Forum: Object-Pascal / Delphi-Language
Delphi
by Tom,
22. Jun 2004
Der grosse Teil der Zeit geht verloren beim Füllen des ListViews. Kommentiere die Zeilen mal aus und vergleiche die Zeiten ...
Forum: Object-Pascal / Delphi-Language
Delphi
by Tom,
22. Jun 2004
Was anderes ...
for i := 0 to dateien_sl.Count - 1 do
begin
...
//Icon
SHGetFileInfo(PChar(dateien_sl.Strings), 0, file_info_fi, SizeOf(file_info_fi), SHGFI_SYSICONINDEX or SHGFI_ICON);
Irre ich mich, oder enthält das Liste nur *.tmp-Dateien? Das Icon ist doch jedesmal gleich, muss also nicht für jede Datei extra ermittelt...
Forum: Object-Pascal / Delphi-Language
Delphi
by Tom,
22. Jun 2004
Application.ProzessMessages heißt das Zauberwort ..., allerdings bin ich mir nicht sicher, ob es wirklich Sinn ergibt 10000 Dateien im Listview anzuzeigen. Dauert ein bißchen lange, oder?