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

Вниз

Компонент для работы с файлами   Найти похожие ветки 

 
Алексей   (2004-06-18 15:08) [0]

Помогите, пожалуйста! Нужен компонент для поиска файлов с нужным расширением.


 
Fay ©   (2004-06-18 15:15) [1]

FindFirstFile


 
Andy BitOff ©   (2004-06-18 15:15) [2]

Функция FindFirst + F1


 
Алексей   (2004-06-18 15:16) [3]

Спасибо!


 
lena19   (2004-06-18 15:22) [4]

привожу пример Анатолия надеюсь он не обидется!!!!!!

Как получить список файлов со всеми подкаталогами (04.03.02 18:15)

procedure ScanDir(StartDir: string; Mask:string; List:TStrings);
var  
SearchRec : TSearchRec;
begin  
if Mask = "" then Mask := "*.*";
 if StartDir[Length(StartDir)] <> "\" then StartDir := StartDir + "\";
 if FindFirst(StartDir+Mask, faAnyFile, SearchRec) = 0 then
begin repeat  Application.ProcessMessages;
     if (SearchRec.Attr and faDirectory) <> faDirectory then
      List.Add(StartDir + SearchRec.Name)    
 else
if (SearchRec.Name <> "..") and (SearchRec.Name <> ".") then
begin      
 List.Add(StartDir + SearchRec.Name + "\");
       ScanDir(StartDir + SearchRec.Name + "\",Mask,List);
     end;    
until FindNext(SearchRec) <> 0;
   FindClose(SearchRec);  
end;
end;

Пример вызова, параметры
1. имя папки
2. маска, по умолчанию *.*
3. хранилище для резульатат,
 любой наследник от TString, например TStringList

procedure TForm1.Button1Click(Sender: TObject);
begin  ListBox1.Items.Clear;
 ScanDir("c:","",ListBox1.Items);
 Label1.Caption := IntToStr(ListBox1.Items.Count);end;

С уважением
Анатолий Подгорецкий


 
TUser ©   (2004-06-18 16:02) [5]


> привожу пример Анатолия надеюсь он не обидется!!!!!!

Если не ошибаюсь, у него на сайте и компонент соотвествующий есть. А вообще, практически такой же пример приведен в справке.


 
Anatoly Podgoretsky ©   (2004-06-18 16:06) [6]

В ru.delphi FAQ есть более четкий пример, именно с нужным расширением, пример от ЮЗ. Тут важно понимать что хочешь сделать.



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

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

Наверх




Память: 0.48 MB
Время: 0.059 c
1-1087892731
}|{yk
2004-06-22 12:25
2004.07.04
Как передав SendMessage указатель на строку


6-1083910586
atruhin
2004-05-07 10:16
2004.07.04
В каком потоке выполняется TServerSocket.ClientRead


1-1087755757
terra0
2004-06-20 22:22
2004.07.04
передача глобальной переменной в DLL


9-1078948981
Servelat
2004-03-10 23:03
2004.07.04
Arcanoid => Тормоза => Need help!


4-1085547587
Bar
2004-05-26 08:59
2004.07.04
Как отловить обновление рабочего стола?