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

Вниз

Поиск файлов в Delphi   Найти похожие ветки 

 
123000 ©   (2002-09-28 20:26) [0]

Вот процедура поиска файлов *.txt на диске "C:\" :

procedure TForm1.Button1Click(Sender: TObject);
var F: TSearchRec;
begin
if FindFirst("C:\*.txt", faAnyFile, F)=0 then
begin
Memo1.lines.Add(F.Name);
while FindNext(F) = 0 do Memo1.lines.Add(F.Name);
end;
FindClose(F);
end;


А как сделать так, чтобы поиск производился не только в C:\, а на всем жестком диске?


 
Song ©   (2002-09-28 23:32) [1]

Надо обрабатывать вложенные каталоги, например, рекурсией. В FAQ есть пример.


 
Anatolyk   (2002-09-30 12:58) [2]

//я для себя писал нечто вроде ....


procedure TForm1.Directory(Root: String);
var
sr: TSearchRec;
FileAttrs, i, ipos: Integer;
S: String;
tmpStr: Pchar;
dir, base: String;
begin
ChDir(Root); //откуда начать
FileAttrs := faAnyFile;
if FindFirst("*.*", FileAttrs, sr) = 0 then
begin
repeat
if (sr.Attr and FileAttrs) = sr.Attr then
begin
if not((Sr.Name = ".") or (Sr.Name = "..")) then
if (sr.Attr and faDirectory) = faDirectory then //найден каталог?
begin
Directory(Root+ "\" + sr.Name); //Заходим в него (это типа рекурсивный вызов)
ChDir(".."); //и возвращаемся
end
else //если же это файл...
begin
//пишем, например в к.-нибудь файл
WriteLn(FileVar,Root + "\" + sr.Name);
Flush(FileVar);
end;
end;
until FindNext(sr) <> 0;
FindClose(sr);
end;





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

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

Наверх




Память: 0.47 MB
Время: 0.015 c
1-31894
PaRL
2002-09-29 15:28
2002.10.10
Глобальные переменные.


4-32107
Lamer86
2002-08-27 21:37
2002.10.10
Меню при щелчке правой кнопки мыши на файле


14-32004
Ajax
2002-09-14 18:07
2002.10.10
Питерские ВУЗы


14-31938
Dark Hunter
2002-09-13 18:04
2002.10.10
А кто такой Reindeer Moss Eater???


14-31977
VID
2002-09-14 12:18
2002.10.10
Ищу славную статью