Forum: Object-Pascal / Delphi-Language
by norwegen60,
7. Jan 2008
Hallo Mashutu,
dass ich deine Datei nicht finde, liegt wahrscheinlich am Attribut $23. Ich habe aber auch deine Routine ausprobiert und seltsamerweise ist sie langsamer. Zwischen den Tests habe ich den Rechner jedes mal neu gestartet. 2x mit deiner Routine (20.87 und 20.97 sec), meine Routine mit der Abfrage BakDatei dauterte es 4.74 und 4.72 sec und so lange dauert es auch mit Total Commander...
Forum: Object-Pascal / Delphi-Language
by norwegen60,
7. Jan 2008
Hallo zusammen,
das ging ja rasend schnell. Die Funktion BakDatei prüft nur die Dateiendungen. Ich habe sie auskommentiert und es wurde nicht schneller. Aufgefallen ist mir aber, dass beim zweiten Suchen alles viel schneller (0.18 sec) läuft. Auch wenn sich der eigentliche Dateiname ändert. Daraufhin habe ich den Rechner runtergefahren und zuerst mit Total Commander gesucht und siehe da, jetzt...
Forum: Object-Pascal / Delphi-Language
by norwegen60,
7. Jan 2008
Hallo zusammen,
ich verwende schon lange folgenden Code um nach Dateien zu suchen.
function TuFiles.GetAllFiles(var slFiles:TStringlist; sFile:string; bAll, bAllVerz, bNoBAK:Boolean):LongInt;
{++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
{ GetAllFiles }...