VPF::Как узнать количество папок? - Форум программистов

Silmarion

Дата 15.12.2005, 17:49 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 73
Регистрация: 31.10.2005
Где: Москва

Репутация: нет
Всего: нет

Всем привет!
Подскажите как узнать количество именно ПАПОК в определенной папке (извеняюсь за татарщину но как сказать по другом не знаю).
Если можно то с примером, а если есть аналогичная функция, то вы меня вообще спасете!

z-END

Дата 15.12.2005, 17:52 (ссылка)

(нет голосов)

Загрузка ...

прафесар™

Профиль
Группа: Комодератор
Сообщений: 3014
Регистрация: 13.3.2003
Где: Венья, Пиетари

Репутация: 11
Всего: 102

Silmarion
http://forum.vingrad.ru/index.php?showtopi...ndpost&p=590037
переделай под папки

--------------------

Каждый чилавек пасвоему праф...а памоему НЕТ!

Poseidon

Дата 15.12.2005, 21:25 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Цитата(z @ 15.12.2005, 17:52)

переделай под папки

переделал

Код

Function FilesCount (Dir: string):Integer;
var SearchRec:TSearchRec;
begin
 Result:=0;
 if Dir<>'' then if Dir[length(Dir)]<>'\' then Dir:=Dir+'\';
 if FindFirst(Dir+'*.*', faAnyFile, SearchRec)=0 then
 repeat
 if (SearchRec.name='.') or (SearchRec.name='..') then continue;
 if (SearchRec.Attr and faDirectory) = 0 
 then 
 else Result := Result+1;
 until FindNext(SearchRec)<>0;
 FindClose(SearchRec);
end;

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

z-END

Дата 15.12.2005, 21:32 (ссылка)

(нет голосов)

Загрузка ...

прафесар™

Профиль
Группа: Комодератор
Сообщений: 3014
Регистрация: 13.3.2003
Где: Венья, Пиетари

Репутация: 11
Всего: 102

Poseidon тоже мне передельщик smile

Код


Function FilesCount (Dir: string):Integer;    
var SearchRec:TSearchRec;    
begin    
 Result:=0;    
 if Dir<>'' then if Dir[length(Dir)]<>'\' then Dir:=Dir+'\';    
 if FindFirst(Dir+'*.*', faAnyFile, SearchRec)=0 then    
 repeat    
 if (SearchRec.name='.') or (SearchRec.name='..') then continue;    
 if (SearchRec.Attr and faDirectory) <> 0  then Result := Result+1;    
 until FindNext(SearchRec)<>0;    
 FindClose(SearchRec);    
end;

--------------------

Каждый чилавек пасвоему праф...а памоему НЕТ!

Poseidon

Дата 15.12.2005, 21:44 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

А какая разница?
Добавлено @ 21:45
или

Код


if (SearchRec.Attr and faDirectory) = 0 
 then 
 else Result := Result+1;

или

Код

if (SearchRec.Attr and faDirectory) <> 0 then Result := Result+1;

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »