Vraag : Onbekwaam om Lege Omslagen te zoeken

Hallo, ik deze Code onder dat ik gebruik heb om naar dossiers te zoeken hoewel het niet do/show om het even wat zal als de omslag Empty.

I am werkelijk willend is iets in de functie doen wanneer de omslag empty. is
" codeBody " 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

function SearchFiles (Dir: Koord): Int64;
var
  SR: TSearchRec;
  FindRes: Geheel;
begin
  Resultaat: =0;
  Dir: = IncludeTrailingBackslash (Dir);
  FindRes: =FindFirst (Dir + „*.*“, faAnyFile, SR);
  Terwijl FindRes=0 beginnen
    Als (SR. Naam <> „. “) En (SR. Naam <> „. “) Toen
      als (SR. Attr en faDirectory) >0 beginnen dan
        SL1.Add (Dir+sr.Name); //TStringlists.
        SearchFiles (Dir+sr.Name)
      het eind begint anders
        SL2.Add (SR. Naam); //TStringlists.
      eind;
      FindRes: =FindNext (SR);
    eind;
  FindClose (SR);
eind;

Antwoord : Onbekwaam om Lege Omslagen te zoeken

Kon u het gedetailleerd geven opnieuw controleren en voorbeeld wanneer het lege omslagen overslaat?
Andere oplossingen  
 
programming4us programming4us