| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как вывести список файлов текущей директории

LG ©   (2003-10-05 04:33:00) 

Нужно к примеру в ListBox`e отобразить список файлов с определённым расширением какой-нибудь директории

---

Song   (2003-10-05 09:44:00) [1]

LB_DIR

---

Chris   (2003-10-05 06:13:00) [2]

var TSR: TSearchRec;
res: integer;
...
ListBox1.Items.Clear;
res:=FindFirst(MyDir+"*."+MyExt,$3F,TSR);
While res=0 do
begin
ListBox1.Items.Add(MyDir+TSR.Name);
res:=FindNext(res);
end;

---

Наверх