Forum: Object-Pascal / Delphi-Language
by mashutu,
8. Jan 2008
Du solltest daran denken, noch am Ende der Methode das hier mal aufzurufen, sonst hast Du da ein kleines Speicherleck :warn:
FindClose(sr);
Ja, da habe ich mich noch nicht daran gewoehnt, dass man das jetzt braucht ... :-)
Forum: Object-Pascal / Delphi-Language
by mashutu,
7. Jan 2008
Auf jeden Fall solltest Du mal nach dem Fehler suchen.
Ich habe nach einer Datei gesucht die im __history Ordner meines Quelltextpfades liegt.... Die wird mit Deiner Methode nicht gefunden.
das Verzeichnis wird auch nicht durchsucht...
Forum: Object-Pascal / Delphi-Language
by mashutu,
7. Jan 2008
Meine Variante benoetigt 1 Sekunde bei mir fuer eine suche nach einer bestimmten Datei
wohingegen Deine Variante 71 Sekunden benoetigt und die Datei nicht findet. Du hast also mehr als nur ein Problem mit der Performance.
function Tfrm_Main.GetAllFilesFast(var slFiles:TStringlist; sPath,sFile:string; bAll, bAllVerz, bNoBAK:Boolean):longint;
var
sr : TSearchRec;
iRes : ...
Forum: Object-Pascal / Delphi-Language
by mashutu,
7. Jan 2008
Was macht denn die Funktion BakDatei()
Wenn die bloed implementiert ist And bNoBak then (DAUER!)