Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.019 c