Delphi справочник - Форум программистов - Навигация  
 A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z      По первой букве  
System     SysUtils     StrUtils     DateUtils     FileCtrl     ConvUtils     StdConvs     Math     Classes     Dialogs     Types     Variants    ПО Unit   Compiler directives     Directives     Keywords     Types     Variables     Constants     Functions     Procedures    По категории  


Основы Delphi
CloseFile
Процедура
Закрывает открытый файл System unit
  procedure CloseFile ( var FileHandle : TextFile ) ;
Описание
Процедура 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
 



© Форум Delphi   |  Блог программистов   |  Создание и продвижение сайтов - "Веб сателлит"  |  Ссылки   |  Английская версия