Описание
Процедура завершает последовательность вызовов функций FindFirst - FindNext ... и высвобождает память, выделенную при вызове функции FindFirst.
Пример
Данный пример выводит список всех файлов с расширением *.txt в каталоге 'C:\WINDOWS\'. var
F: TSearchRec; begin if FindFirst('C:\WINDOWS\*.txt', faAnyFile, F)=0 then begin
Memo1.Lines.Add(F.Name); while FindNext(F) = 0 do Memo1.Lines.Add( F.Name); end;
FindClose(F); end;