Text/ru

From Lazarus wiki
Jump to navigationJump to search

English (en) 日本語 (ja) русский (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 для чтения/записи из текстового файла значений стандартных типов, таких как строковые, целые или вещественные числа. Символ конца строки обрабатывается автоматически: когда происходит чтение, распознаются различные символы конца строк; когда происходит запись, то используется символ конца строки, принятый для текущей операционной системы.

File-related types, procedures and functions:

File - Text - AssignFile - CloseFile - Reset - Rewrite - Get - Put - Read - Readln - Write - Writeln