Поиск файлов

if cDir [length (cDir) ] <> 'V then cDir := cDir+'\';

procedure TForm1.Button1Click(Sender: TObject);
var
FileName: string; // имя или маска искомого файла
cDir: string;
n: integer; // кол-во файлов, удовлетворяющих запросу
// поиск файла в текущем каталоге
procedure Find;
var
SearchRec: TSearchRec; // информация о файле или каталоге
begin
GetDir(0,cDir); // получить имя текущего каталога
if cDir [length (cDir) ] <> 'V then cDir := cDir+'\';
if FindFirst(FileName, faArchive,SearchRec) = 0
then repeat
if (SearchRec.Attr and faAnyFile) = SearchRec.Attr
then begin
form1.Memo1.Lines.Add(cDir + SearchRec.Name);
n := n + 1; end; until FindNext(SearchRec) <> 0;
// обработка подкаталогов текущего каталога
if FindFirst('*', faDirectory, SearchRec) = 0 then repeat
if (SearchRec.Attr and faDirectory) = SearchRec.Attr then begin
// каталоги .. и . тоже каталоги, // но в них входить не надо .'.'.'
if SearchRec.Name[1] <> '.' then begin
ChDir(SearchRec.Name);// войти в каталог
Find; // выполнить поиск в подкаталоге
ChDir('..');// выйти из каталога
end;
end;
until FindNext(SearchRec) <> 0;
end;
// возвращает каталог, выбранный пользователем
function GetPath(mes: string):string;
var
Root: string; // корневой каталог
pwRoot : PWideChar; Dir: string;
begin
Root := '';
GetMem(pwRoot, (Length(Root)+1) * 2);
pwRoot := StringToWideChar(Root, pwRoot, MAX_PATH*2);
if SelectDirectory(mes, pwRoot, Dir) then
if length(Dir) =2 // пользователь выбрал корневой каталог
then GetPath := Dir+'\' else GetPath := Dir else
GetPath := '';
end;
 //щелчок на кнопке Поиск
procedure Tforml.ButtonlClick(Sender: TObject);
begin
Memo1.Clear; // очистить поле Memol
Label4.Caption := '';
FileName := Edit1.Text; // что искать.
cDir := Edit2.Text; // где искать
n:=0; // кол-во найденных файлов
ChDir(cDir); // войти в каталог начала поиска
Find; // начать поиск
if n = 0 then
ShowMessage('Файлов, удовлетворяющих критерию поиска нет.')
else Label4.Caption := 'Найдено файлов:' + IntToStr(n);
end;
// щелчок на кнопке Папка
procedure Tforml.Button2Click (Sender: TObject);
var
Path: string; begin
Path := GetPath('Выберите папку');
if Path <> ''
then Edit2.Text := Path;
end;
end.

if cDir [length (cDir) ] <> 'V' then cDir := cDir+'\';

if SelectDirectory(mes, pwRoot, Dir) then

[Warning] Unit2.pas(46): Symbol 'faArchive' is specific to a platform
[Error] Unit2.pas(73): Undeclared identifier: 'SelectDirectory'
[Error] Unit2.pas(79): ';' expected but '.' found
[Error] Unit2.pas(93): Identifier redeclared: 'Tforml'
[Error] Unit2.pas(100): ';' expected but '.' found
[Error] Unit2.pas(103): Declaration expected but end of file found
[Fatal Error] Project2.dpr(5): Could not compile used unit 'Unit2.pas'

uses
  FileCtrl;

[Warning] Unit2.pas(46): Symbol 'faArchive' is specific to a platform
[Error] Unit2.pas(73): Undeclared identifier: 'SelectDirectory'
[Error] Unit2.pas(79): ';' expected but '.' found
[Error] Unit2.pas(93): Identifier redeclared: 'Tforml'
[Error] Unit2.pas(100): ';' expected but '.' found
[Error] Unit2.pas(103): Declaration expected but end of file found
[Fatal Error] Project2.dpr(5): Could not compile used unit 'Unit2.pas'