Текущий архив: 2004.04.11;
Скачать: CL | DM;
Вниз
как узнать количество файлов в папке? Найти похожие ветки
← →
[BAD]Angel © (2004-04-21 09:26) [0]как узнать количество файлов в папке?
можно кодом? про fintfirst и findnext я знаю, как применить?
← →
[BAD]Angel © (2004-04-21 09:26) [0]как узнать количество файлов в папке?
можно кодом? про fintfirst и findnext я знаю, как применить?
← →
BaDeVlad © (2004-04-21 09:29) [1]Посмотри в хелпе пример по FindFirst FindNext, там именно то, что тебе надо.
← →
BaDeVlad © (2004-04-21 09:29) [1]Посмотри в хелпе пример по FindFirst FindNext, там именно то, что тебе надо.
← →
[BAD]Angel © (2004-04-21 09:41) [2]какое-то число нереальное получается
← →
[BAD]Angel © (2004-04-21 09:41) [2]какое-то число нереальное получается
← →
Goida © (2004-04-21 09:45) [3]Что значит нереальное? 65348590? Или на 2 больше, чем нужно?
← →
Goida © (2004-04-21 09:45) [3]Что значит нереальное? 65348590? Или на 2 больше, чем нужно?
← →
[BAD]Angel © (2004-04-21 09:49) [4]12662653
← →
[BAD]Angel © (2004-04-21 09:49) [4]12662653
← →
Goida © (2004-04-21 09:50) [5]В таком случае приведи код.
← →
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;
← →
[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;
← →
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 нулём?
← →
Goida © (2004-04-21 10:07) [8]Как выглядит > "d:\panel\?
Ты перед запуском цикла инициализируешь Result нулём?
← →
[BAD]Angel © (2004-04-21 10:08) [9]:) во дурак :))))
коечно не инициализирую....
спасибо
← →
[BAD]Angel © (2004-04-21 10:08) [9]:) во дурак :))))
коечно не инициализирую....
спасибо
Страницы: 1 вся ветка
Текущий архив: 2004.04.11;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.038 c
