| Описание |
Процедура CloseFile закрывает открытый файл указанный в FileHandle.
Файл, должен был быть назначен, и открыт с Append, Reset или ReWrite.
Файл закрывается, и дескриптор делается доступным для дальнейших назначений файлов.
|
|
| Похожие команды |
Append Открывает текстовый файл, для добавления записей в файл (добавляет в конец файла)
AssignFile Связывает дескриптор файла с бинарным или текстовым файлом
AssignPrn Обрабатывает принтер как текстовый файл - простой способ печати текста
DeleteFile Удаляет файл, указанный в параметре
Erase Стирает файл
RenameFile Переименование файла или директории
Reset Открывает текстовый файл для чтения, или двоичный файл для чтения/записи
ReWrite Открывает текстовый или двоичный файл для записи
TextFile Объявляет типа файл для того, чтобы сохранить строки текста
| |
|
| Пример кода : Закрытие после операций записи и чтения |
var
myFile : TextFile;
text : string;
begin
// Попытка открыть файл Test.txt
для записи
AssignFile(myFile, 'Test.txt');
ReWrite(myFile);
// Запиcь нескольких известных слов в
этот файл
WriteLn(myFile, 'Hello');
WriteLn(myFile, 'World');
// Закрытие файла
CloseFile(myFile);
// Повторное открытие файла в режиме
только для чтения
Reset(myFile);
// Показ содержимого файла
while not Eof(myFile) do
begin
ReadLn(myFile, text);
ShowMessage(text);
end;
// Закрытие файла в последний раз
CloseFile(myFile);
end;
|
Hello
World
|
|
