Пример кода : Ищем все подходящие под Unit1.d* файлы в текущем каталоге
var searchResult : TSearchRec; begin // Пытаемся найти правильные файлы, соответствующие Unit1.d* в текущем каталоге if FindFirst('Unit1.d*', faAnyFile, searchResult) = 0 then begin repeat ShowMessage(Имя файла = '+searchResult.Name); ShowMessage('Размер файла = '+IntToStr(searchResult.Size)); until FindNext(searchResult) <> 0; // Должен освободить ресурсы, используемые этими успешными, поисками FindClose(searchResult); end; end;
Имя файла = Unit1.dcu Размер файла = 4382 Имя файла = Uni1.dfm Размер файла = 524 Имя файла = Uni1.ddp Размер файла = 51
Пример кода : Ищем все каталоги выше, включая текущий
var searchResult : TSearchRec; begin // Пробуем найти каталоги выше текущего каталога SetCurrentDir('..'); if FindFirst('*', faDirectory, searchResult) = 0 then begin repeat // Показываем только каталоги if (searchResult.attr and faDirectory) = faDirectory then ShowMessage('Directory = '+searchResult.Name); until FindNext(searchResult) <> 0; // Должен освободить ресурсы, используемые этими успешными, поисками FindClose(searchResult); end; end;
Directory = . Directory = .. Directory = Bin Directory = Help Directory = Projects Directory = Demos Directory = Lib Directory = Objrepos Directory = MergeModules Directory = Imports Directory = Source Directory = Rave5 Directory = Ocx
|