Text/ru

Тип TextFile (или эквивалентно более старой записи, просто Text) используется в программах на Pascal для чтения из текстового файла либо для записи в текстовый файл.

{$mode objfpc}{$H+}
var 
  MyFile: TextFile;
  s: string;
begin
  AssignFile(MyFile, 'a.txt');

  try
    reset(MyFile);    //Отрыть файл для чтения
    readln(MyFile, s);
    writeln('Текст прочитан из файла: ', s) 
   
    {
    или добавить некоторый текст:
    append(MyFile);
    writeln(MyFile, 'некоторый текст'); 
    }

  finally
    CloseFile(MyFile)
  end
end.

Переменная, представляющая текстовый файл (MyFile в примере выше), может быть использована для чтения и/или записи в текущий файл. Она должна быть связана с текущим файлом посредством процедуры AssignFile из библиотеки времени выполнения. после этого файл должен быть открыт с помощью процедуры Reset, Rewrite или Append. Вы можете читать или писать в файл, используя процедуры Read, Readln, Write, Writeln. После окончания обработки файла, вам необходимо закрыть его, используя процедуру CloseFile.

Обратите внимание, что тип TextFile сильно отличается от типа file of char:

• file of char - простая последовательность однобайтовых символов и вы можете читать или писать только один символ за раз. Т.е. вы можете вызвать только Read(F, C) или Write(F, C), где C - переменная типа char.
• TextFile предлагает намного больше функций и представляет обычную концепцию текстовых файлов. Вы можете использовать Read, Readln, Write, Writeln для чтения/записи из текстового файла значений стандартных типов, таких как строковые, целые или вещественные числа. Символ конца строки обрабатывается автоматически: когда происходит чтение, распознаются различные символы конца строк; когда происходит запись, то используется символ конца строки, принятый для текущей операционной системы.

From the Free Pascal wiki, page "Text/ru", as it stood on 2020-02-29 after a change by Trev, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's Licensing page. If you have concerns about this material, message the admin.