Delphi. Процедура FindClose( var F: TSearchRec );

Процедура FindClose( var F: TSearchRec );

Модуль: SysUtils

Описание
Процедура завершает последовательность вызовов функций 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;