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;