Файловая оболочка (Delphi 30 )

Категория реферата: Рефераты по информатике, программированию
Теги реферата: доклад по физкультуре, украина реферат
Добавил(а) на сайт: Mishin.

D:string; begin

{Вывод в статус строке директории в которой производится поиск}

FindForm.StatusFind.Panels[1].Text:=CurDir;

FindFirst(CurDir+'*.*',faAnyFile,F);

FindNext(F); repeat

// Проверка расширенного поиска

If FindForm.CBAdvSearch.Checked and
(F.AttrfaDirectory) then begin

// Проверка на размер найденного файла

// размер и время создания найденого файла должны находится в пределах заданных

// пользователем if not(((F.Size < StrToInt(FindForm.SLess.Text)) and

(F.Size > StrToInt(FindForm.SGreater.Text)))) then

Continue; if not(((FileDateTime(CurDir+F.Name)

FindForm.DateIsAfter.Date))) then Continue; end;

// проверить не является ли найденый файл директорией if F.Attr=faDirectory then if (F.Name'.') and (F.Name'..') then begin

// если найденный файл – директория , рекурсивный вызов поиска в данной директории

FindInCurrentDir(CurDir+F.Name+''); end; if (F.Name'..') and (F.Name'.') then

// если файл подходит под маску, занести его в список if CompareFileWithMask(F.Name) then begin

FindForm.FileWasFind.Items.Add(CurDir+F.Name);

FindForm.StatusFind.Panels[0].Text:=IntToStr(StrToInt(FindForm.StatusFind.Pa nels[0].Text)+1);

FindForm.FileWasFind.Refresh; end;

// выполнять поиск пока не закончатся файлы в текущей области заданной области.

Until((FindNext(F) 0));

FindClose(F); end;

подкаталоги, сравнивается имя найденного файл с маской поиска, и если все наложенные ограничения выполнены, найденный файл заносится в список предлагаемый пользователю для просмотра. Для организации поиска в разных областях изменяется лишь место первого вызова рекурсивной процедуры.

В форме поиска файлов возможен переход к выбранному файлу, из списка найденных, а также запуск либо просмотр/редактирование во внешнем редакторе.

Поделитесь этой записью или добавьте в закладки