Einzelnen Beitrag anzeigen

Benutzerbild von scrat1979
scrat1979

Registriert seit: 12. Jan 2007
Ort: Sulzbach a.d. Murr
1.029 Beiträge
 
Delphi 10.4 Sydney
 
#3

Re: Findfirst...Findnext funktioniert nicht 100%ig

  Alt 8. Mär 2007, 08:58
Dankeschön, aber genau das ist das Problem. Mein Prinzip ist ja dasselbe. Übrigens wird ja auch bei mir schon rekursiv gesucht

Delphi-Quellcode:
[...]
     if FSubDirs Then DoSearch(InitDir + SR.Name + '\');
[...]
Das Hauptproblem ist nur, dass die Prozedur erst gar nicht durchlaufen wird, wenn eine entsprechende DAtei im STARTVERZEICHNIS nicht gefunden wurde.

Beispiel 1: Suchstart in D:\TEST mit Mask = '*.INI'

D:\TEST\TEST1.TXT
D:\TEST\TEST2.TXT
D:\TEST\TEST1.INI <--
D:\TEST\MYFILE.DAT
D:\TEST\TESTDIR\CONFIG.INI <--

dies funktioniert, da im Startverzeichnis eine .INI-DAtei vorhanden ist.

Beispiel 1: Suchstart in D:\TEST mit Mask = '*.INI'

D:\TEST\TEST1.TXT
D:\TEST\TEST2.TXT
D:\TEST\MYFILE.DAT
D:\TEST\TESTDIR\CONFIG.INI <-- wird nicht gefunden

dies funktioniert NICHT, da im Startverzeichnis KEINE .INI-DAtei vorhanden ist. Somit kommt die Prozedur erst gar nicht an den Punkt um die Verzeichnisse rekursiv aufzurufen.

SCRaT
Michael Kübler
  Mit Zitat antworten Zitat