Статьи по Делфи
Меню сайта


Категории каталога
Мои статьи [2]
Функции и процедуры Win Api [20]
Работа с мышью [10]
Реестр и Делфи [11]
Работа с файлами [38]
Делфи и Хакер [10]
Инсталлятор собственными руками [6]
Хитрости в делфи [3]
Работа с системой [19]


Форма входа


Поиск по каталогу


Друзья сайта


Наш опрос
Понравились ли вам треки
Всего ответов: 156


Приветствую Вас, Гость · RSS 2020-09-19, 9:47 PM
Начало » Статьи » Работа с файлами

Процедура FindClose
Процедура 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;

Категория: Работа с файлами | Добавил: Admin (2006-12-17)
Просмотров: 911 | Рейтинг: 0.0 |

Всего комментариев: 0
Имя *:
Email *:
Код *: