Delphi-Help

Описание

Процедура CloseFile закрывает открытый файл указанный в FileHandle.
Файл, должен был быть назначен, и открыт с Append, Reset или ReWrite.
Файл закрывается, и дескриптор делается доступным для дальнейших назначений файлов.

Пример кода

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

Примечание