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