[volod3000]

Здравствуйте !

Вот функция , которая ни как не хочет заглядывать во вложенные папки.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

function FileCount(Dir: string): integer; var   fs: TSearchRec;   label n;   begin   Result := 0;     n:       if FindFirst(Dir + '\*.exe', faAnyFile, fs) = 0 then       repeat            inc(Result);         if (fs.Attr and faDirectory) = faDirectory then       begin            Dir := (Dir+fs.name);            goto n;         end;     until       FindNext(fs) <> 0;   FindClose(fs); end;

Где ошибка ?

[Pilot_Red]

познакомься с таким понятием, как рекурсия и будет тебе счастье(да и style программирования улучшишь, без всяких там goto))))

[lmikle]

Ошибка - а у тебя вложенные папки тоже имеют расширение .exe???

[volod3000]

Сообщение от Pilot_Red

познакомься с таким понятием, как рекурсия и будет тебе счастье(да и style программирования улучшишь, без всяких там goto))))

Все правильно, но в случае рекурсии Result := 0;

[Pilot_Red]

Сообщение от volod3000

Все правильно, но в случае рекурсии Result := 0;

да... в случае локального счетчика, но если объявишь глобальную переменную-счетчик то все будет гут))

[PhoeniX]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

<b>function </b>FileCount(Dir: <b>string</b>): integer; <b>forward</b>; ... <b>function </b>FileCount(Dir: <b>string</b>): integer; <b>var</b>   fs: TSearchRec; <b>begin</b>   Result := 0;   <b>if </b>FindFirst(Dir + '\*.exe', faAnyFile, fs) = 0 <b>then repeat</b>     inc(Result);   <b>until </b>FindNext(fs) <> 0;   FindClose(fs);   <b>if </b>FindFirst(Dir + '\*', faDirectory, fs) = 0<b> then repeat</b>     <b>if </b>fs.name[1] <> '.' <b>then begin</b>       inc(Result,FileCount(Dir+fs.name));     <b>end</b>;   <b>until </b>FindNext(fs) <> 0;   FindClose(fs); <b>end</b>;

[volod3000]

DJ PhoeniX Спасибо, получилось.

Только добавил '\'

Код:

1	inc(Result,FileCount(Dir+ '\'+fs.name));

и объявление

Код:

1	function FileCount(Dir: string): integer; forward;

ненужно (Это я как понимаю для Delphi ниже 8)