Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.10.10;
Скачать: [xml.tar.bz2];

Вниз

Поиск файлов в 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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.55 MB
Время: 0.029 c
4-32096
arcoant
2002-08-27 21:41
2002.10.10
Регионы


3-31610
Vint
2002-09-19 09:31
2002.10.10
Password под IB


1-31782
Kotka
2002-10-02 00:40
2002.10.10
Как закрыть окно???


3-31660
BIN
2002-09-20 11:44
2002.10.10
Вставка строки


1-31698
123000
2002-09-30 16:28
2002.10.10
Как определить в и-нете ли пользователь?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский