Как найти файлы?

← →
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)

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

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

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

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