Pytanie : Niezdolny Pusty Falcówka

Cześć, I've dostać ten Kod pod używać I używać dla kartoteka chociaż ono do/show używać jeżeli the falcówka być Empty.

I am naprawdę coś w the funkcja gdy the falcówka być empty. 
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

function SearchFiles (Dir: Sznurek): Int64;
var
  sr: TSearchRec;
  FindRes: Integer;
zaczynać
  Rezultat: =0;
  Dir: = IncludeTrailingBackslash (Dir);
  FindRes: =FindFirst (Dir + "*.*", faAnyFile, sr);
  Podczas Gdy FindRes=0 zaczynać
    Jeżeli (sr. Imię <> ".") I (sr. Imię <> ". .") Wtedy
      jeżeli (sr. Attr I faDirectory) >0 Wtedy zaczynać
        SL1.Add (Dir+sr.Name); //TStringlists.
        SearchFiles (Dir+sr.Name)
      końcówka inny zaczynać
        SL2.Add (sr. Imię); //TStringlists.
      końcówka;
      FindRes: =FindNext (sr);
    końcówka;
  FindClose (sr);
końcówka;

Odpowiedź : Niezdolny Pusty Falcówka

Móc ty ono znowu i szczegółowy przykład gdy ono omijać pusty falcówka?
Inne rozwiązania  
 
programming4us programming4us