Frage : Nicht imstande, leere Faltblätter zu suchen

Hallo, habe ich diesen Code unter dem, den ich pflege, um nach Akten zu suchen, obwohl es do/show nichts wird, wenn das Faltblatt Empty.

I morgens etwas in der Funktion tun wirklich wünschend ist, wenn das Faltblatt empty. ist 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

function SearchFiles (Dir: Schnur): Int64;
var
  Sr: TSearchRec;
  FindRes: Ganze Zahl;
anfangen
  Resultat: =0;
  Dir: = IncludeTrailingBackslash (Dir);
  FindRes: =FindFirst (Dir + „*.*“, faAnyFile, Sr);
  Während FindRes=0 anfangen
    Wenn (Sr. Namens<> „.") und (Sr. Namens<> „. .") dann
      wenn (Sr. Attr und faDirectory) >0 fangen dann an
        SL1.Add (Dir+sr.Name); //TStringlists.
        SearchFiles (Dir+sr.Name)
      Ende fangen sonst an
        SL2.Add (Sr. Name); //TStringlists.
      Ende;
      FindRes: =FindNext (Sr);
    Ende;
  FindClose (Sr);
Ende;

Antwort : Nicht imstande, leere Faltblätter zu suchen

Konnten Sie es wieder überprüfen und ausführliches Beispiel nennen, wenn es leere Faltblätter überspringt?
Weitere Lösungen  
 
programming4us programming4us