FindFirst Находит все файлы, соответствующие маске файла и атрибутов
FindNext Находит следующий файл после успешного FindFirst
Пример кода : Нахождение всех файлов 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