Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.11;
Скачать: CL | DM;

Вниз

как узнать количество файлов в папке?   Найти похожие ветки 

 
[BAD]Angel ©   (2004-04-21 09:26) [0]

как узнать количество файлов в папке?

можно кодом? про fintfirst и findnext я знаю, как применить?


 
BaDeVlad ©   (2004-04-21 09:29) [1]

Посмотри в хелпе пример по FindFirst FindNext, там именно то, что тебе надо.


 
[BAD]Angel ©   (2004-04-21 09:41) [2]

какое-то число нереальное получается


 
Goida ©   (2004-04-21 09:45) [3]

Что значит нереальное? 65348590? Или на 2 больше, чем нужно?


 
[BAD]Angel ©   (2004-04-21 09:49) [4]

12662653


 
Goida ©   (2004-04-21 09:50) [5]

В таком случае приведи код.


 
[BAD]Angel ©   (2004-04-21 10:03) [6]

if FindFirst("d:\panel\*.*", faAnyFile, SearchRec)=0 then begin
 repeat
  Application.ProcessMessages;
  inc(Result);
 until FindNext(SearchRec) = 0;
  FindClose(SearchRec);
end;


 
clickmaker ©   (2004-04-21 10:06) [7]

if FindFirst("d:\panel\*.*", faAnyFile, SearchRec)=0 then begin
Result := 0;
repeat
 Application.ProcessMessages;
 if ((SearchRec.Attr and faDirectory) = 0) then
   inc(Result);
until FindNext(SearchRec) = 0;
 FindClose(SearchRec);
end;


 
Goida ©   (2004-04-21 10:07) [8]

Как выглядит > "d:\panel\?
Ты перед запуском цикла инициализируешь Result нулём?


 
[BAD]Angel ©   (2004-04-21 10:08) [9]

:) во дурак :))))
коечно не инициализирую....
спасибо



Страницы: 1 вся ветка

Текущий архив: 2004.04.11;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.071 c
1-1080159419
Eine Komsomolka
2004-03-24 23:16
2004.04.11
Компонент для хранения на себе компонентов


7-1076080076
Станислав
2004-02-06 18:07
2004.04.11
Рабочий стол


14-1079131188
Программист
2004-03-13 01:39
2004.04.11
Что означают разноцветные "копирайты"


1-1079708028
sherminator
2004-03-19 17:53
2004.04.11
часть переменной...


3-1079337846
Nikolai_S
2004-03-15 11:04
2004.04.11
Как динамически добавить поля типа fkCalculated к TADOQuery?