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

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

Перебор файлов [D6]

Vadik ©   (2005-07-13 17:41:00) 

Привет мастера! Кто-нибудь может привести процедуру перебора имен всех файлов, находящихся в некотором каталоге. Спасибо за поддержку!

---

begin...end   (2005-07-13 18:29:00) [1]

> Vadik   (13.07.05 17:47) [3]

procedure GetFilesList(Dir: string; List: TStrings);
var
 H: Cardinal;
 D: TWin32FindData;
begin
 Dir := IncludeTrailingPathDelimiter(Dir);
 H := FindFirstFile(PChar(Dir + '*.*'), D);
 if H <> INVALID_HANDLE_VALUE then
   try
     repeat
       if D.dwFileAttributes and faDirectory = 0 then
         List.Add(Dir + D.cFileName)
     until not FindNextFile(H, D)
   finally
     Windows.FindClose(H)
   end
end.

Использование:

var
 L: TStringList;
begin
 L := TStringList.Create;
 try
   GetFilesList('C:\Windows', L);
   ... // Используем список L
 finally
   L.Free
 end
end.

---

raidan   (2005-07-13 18:13:00) [2]

>Vadik   (13.07.05 18:00) [5]
Вам уже ответили, см.
evvcom ©   (13.07.05 17:42) [1]

---

Плохиш   (2005-07-13 18:07:00) [3]

200 Euro

---

Vadik   (2005-07-13 18:00:00) [4]

> Igor_thief   (13.07.05 17:51) [4]
Ti chto otvetit prosto ne mozesh, togda ne umnichay

---

Igor_thief   (2005-07-13 17:51:00) [5]

Зайди в раздел факю на любом сайте по программированию.

---

Vadik   (2005-07-13 17:47:00) [6]

begin...end ©
В подкаталогах НЕ надо учитывать
это нужно чтобы я потом открывал эти файлы и парсил их

---

begin...end   (2005-07-13 17:44:00) [7]

> Vadik   (13.07.05 17:41)

1. Нужно ли учитывать файлы в подкаталогах?
2. Это нужно только для вывода списка файлов на экран?

---

evvcom   (2005-07-13 17:42:00) [8]

FindFirst, FindNext

---

Наверх