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

Вниз

Как найти файлы?   Найти похожие ветки 

← →
deras ©   (2007-04-18 15:44) [0]

Подскажите, как найти файли с маской *.txt в папке C:\temp и в ее подпапках? Очень желательно пример...

---

← →
Dmitrij_K   (2007-04-18 15:55) [1]

FindFirst в поиск

---

← →
Рамиль ©   (2007-04-18 15:56) [2]

procedure CreateFileList(var BeginPath: string; Path: string; var List: TstringList);
var
 SearchRec: TSearchRec;
 FindFlag: integer;
 SearchObj: TSearchObj;
begin
 FindFlag := FindFirst(Path + "*.*", faAnyFile, SearchRec);
 while FindFlag = 0 do
 begin
   if (SearchRec.Name <> ".") and (SearchRec.Name <> "..") then
   begin
     SearchObj := TSearchObj.Create;
     SearchObj.SearchRec := SearchRec;
     List.AddObject(ExcludeBeginPath(BeginPath, Path + SearchRec.Name), SearchObj);
     if (SearchRec.Attr and faDirectory <> 0) then
       CreateFileList(BeginPath, Path + SearchRec.Name + "\", List);
   end;
   FindFlag := FindNext(SearchRec);
 end;
 SysUtils.FindClose(SearchRec);
end;

Перебирает все файлы, как найти *.txt думаю сам догадаешься.

---

← →
deras ©   (2007-04-18 16:14) [3]

>Рамиль ©   (18.04.07 15:56) [2]
Огромное спасибо!

---

← →
begining user   (2007-04-18 16:41) [4]

>Рамиль ©   (18.04.07 15:56) [2]
А как вызывать? Как закатать список файлов в Memo?

---

← →
{RASkov}   (2007-04-18 16:44) [5]

> [4] begining user   (18.04.07 16:41)

...
Memo.Lines.Add(SearchRec.Name);
...

---

← →
MBo ©   (2007-04-18 16:58) [6]

> как вызывать? Как закатать список файлов в Memo?
в заголовке процедуры вместо параметра
var List: TstringList
сделать
List: TStrings
и передавать Memo.Lines

---

← →
begining user   (2007-04-18 17:42) [7]

пишет: неизвестный идентификатор TSearchObj;

---

← →
{RASkov}   (2007-04-18 17:55) [8]

> [7] begining user   (18.04.07 17:42)

убери его и все что с ним связано...

---

← →
Рамиль ©   (2007-04-18 18:27) [9]

> begining user   (18.04.07 17:42) [7]

Сорри, выдрал из своего кода не подумав. Мне просто нужны были атрибуты файлов в дальнейшем. А вообще
type
 TSearchObj = class
 public
   SearchRec: TSearchRec;
 end;
Можно выкинуть.

---

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

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

Наверх

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