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

Вниз

узнать имя файлов   Найти похожие ветки 

 
baracuda   (2003-05-28 18:11) [0]

Здравствуйте! Как можно решить следующую проблемку. Есть каталог, в который попадают файлы. Нужно чтобы моя программа не зная имен этих файлов обрабатывала каталог и при наличии файлов читала их. Как это можно реализовать? Как перебирать имена файлов?


 
Skier ©   (2003-05-28 18:12) [1]

FAQ you.


 
baracuda   (2003-05-28 18:50) [2]

Это все что ты можешь сказать?


 
jack128 ©   (2003-05-28 18:52) [3]

FindFirst/FindNext/FindClose + F1

зы : но FAQ по моему проще...


 
Александр из Минска ©   (2003-05-28 18:59) [4]

Я как-то делал код... Но он удаляет все файла и каталоги в том, который ты указал в скобках, а потом и этот каталог киляет... Ты удаление замени на свою обработку...

procedure DelDir(dir : String);
var
sr : TSearchRec;
Attrs : Integer;
f : Boolean;
begin
f := False;
Attrs := 0;
Attrs := Attrs + faAnyFile;
if FindFirst(dir+"/*.*", Attrs, sr) = 0 then
begin
if sr.Name = "." then
begin
FindNext(sr);
FindNext(sr);
end;
repeat
if sr.Attr <> faDirectory then
begin
DeleteFile(dir+"/"+sr.Name);
end
else
begin
if sr.Name <> ".." then
begin
DelDir(dir+"/"+sr.Name);
end
else
begin
f := True;
RmDir(dir);
end;
end;
until FindNext(sr) <> 0;
FindClose(sr);
if not f then RmDir(dir);
end
else
begin
FindClose(sr);
if not f then RmDir(dir);
end;
end;


 
jack128 ©   (2003-05-28 19:10) [5]


> if sr.Name = "." then
> begin
> FindNext(sr);
> FindNext(sr);
> end;

Не думаю, что стоит закладываться на то, что ПОСЛЕ текущего(.) каталога ОБЕЗАТЕЛЬНО будет найден родительский(..)
Обычно делают так
if sr.Name = "." or sr.Name = ".." then Continue;


 
Александр из Минска ©   (2003-05-28 19:13) [6]

jack128:
Учту и я...



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

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

Наверх




Память: 0.47 MB
Время: 0.022 c
1-26532
Deus
2003-05-25 21:05
2003.06.09
Насчёт размера программ(в памяти)


14-26718
_san_
2003-05-22 09:29
2003.06.09
Как написать резидента


1-26425
Александр из Минска
2003-05-28 15:29
2003.06.09
StringGrid


1-26578
ZEE
2003-05-28 13:53
2003.06.09
Удаление TreeNode


3-26409
Dimaz-z
2003-05-21 22:25
2003.06.09
Ещё одна проблема с упаковкой таблицы!!! Помогите пожалуйста!