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

Вниз

Как "просканировать" каталог на наличие в нем определ. файлов?   Найти похожие ветки 

← →
Gost   (2005-02-08 09:31) [0]

Как "просканировать" каталог (например C:\DOCS) на наличие в нем определ файлов (например *.txt) и "закинуть" имена найденых файлов в список ComboBox"a?
Заранее благодарен.

---

← →
Александр Иванов ©   (2005-02-08 09:34) [1]

FindFirst/FindNext

---

← →
Gost   (2005-02-08 09:42) [2]

А с примером можна?

---

← →
Семенов_   (2005-02-08 11:37) [3]


procedure TForm1.Button1Click(Sender: TObject);
var
 SRec: TSearchRec;
begin
if FindFirst("C:\DOCS\*.txt",faAnyFile,SRec) <> 0 then
 Exit;
repeat
 ComboBox1.Items.Add("C:\DOCS\"+SRec.Name);
until FindNext(SRec) <> 0;
FindClose(SRec);

end;


---

← →
Gost   (2005-02-08 12:16) [4]

Большое спасибо, Семенов_!

---

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

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

Наверх

Память: 0.47 MB
Время: 0.03 c