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;
Справочник по Delphi
Уроки Delphi
