Форум: "Основная";
Текущий архив: 2005.07.31;
Скачать: [xml.tar.bz2];

Вниз

Перебор файлов   Найти похожие ветки 

← →
Vadik   (2005-07-13 17:41) [0]

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

---

← →
evvcom ©   (2005-07-13 17:42) [1]

FindFirst, FindNext

---

← →
begin...end ©   (2005-07-13 17:44) [2]

> Vadik   (13.07.05 17:41)

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

---

← →
Vadik   (2005-07-13 17:47) [3]

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

---

← →
Igor_thief   (2005-07-13 17:51) [4]

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

---

← →
Vadik   (2005-07-13 18:00) [5]

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

---

← →
Плохиш ©   (2005-07-13 18:07) [6]

200 Euro

---

← →
raidan ©   (2005-07-13 18:13) [7]

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

---

← →
begin...end ©   (2005-07-13 18:29) [8]

> 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.

---

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

Форум: "Основная";
Текущий архив: 2005.07.31;
Скачать: [xml.tar.bz2];

Наверх

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