Delphi справочник - Форум программистов - Навигация  
 A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z      По первой букве  
System     SysUtils     StrUtils     DateUtils     FileCtrl     ConvUtils     StdConvs     Math     Classes     Dialogs     Types     Variants    ПО Unit   Compiler directives     Directives     Keywords     Types     Variables     Constants     Functions     Procedures    По категории  

форум программистов

Основы Delphi
ReadLn
Процедура
Позволяет прочитать полную строку данных из текстового файла System unit
  
1 procedure ReadLn ( var Variable1 {,var Variable2...} ) ;

2 procedure ReadLn ( var FileHandle : TextFile; var Variable1 {,var Variable2...} ) ;
Описание
Delphi процедура ReadLn читает полную строку данных из текстового файла или до консоли (console).

Версия 1

Используется, чтобы читать из консоли (console).

Версия 2

Используется, чтобы читать строку текста из текстового файла с данными. Вы должны использовать AssignFile, чтобы назначать файл для операций - чтения / записи; и открыть файл до процедуры чтения.

ReadLn прочтёт только одну строку, а так как указатель чтения из файла мы не передвигали, то эта строка будет первой строкой текстового файла.

Для прочтения всего текстового файла удобно использовать цикл.
Примечания
ReadLn не буферизует записи, так что его выполнение ухудшено. BlockRead более эффективен, но приспособлен для записи в двоичные файлы.
Похожие команды
AssignFile  Связывает дескриптор файла с бинарным или текстовым файлом

BlockRead  Читает блок записей данных из нетипизированного двоичного файла

BlockWrite  Записывает блок записей данных в нетипизированный двоичный файл

Eof  Возвращает true, если позиция курсора находится в конце файла открытого с помощью Reset

File  Определяет типизированный или нетипизированный файл

Read  Позволяет прочитать данные из двоичного или текстового файла

ReadLn  Позволяет прочитать полную строку данных из текстового файла

Reset  Открывает текстовый файл для чтения, или двоичный файл для чтения/записи

TextFile  Объявляет типа файл для того, чтобы сохранить строки текста

Write  Записывает данные в бинарный или текстовый файл

WriteLn  Записывает законченную строку данных в текстовый файл

 
Пример кода : Чтение каждой текстовой строки как набор 4 чисел
var
  myFile : TextFile;
  n1, n2, n3 : Integer;

begin
  // Попытка открыть файл Test.txt для записи
  AssignFile(myFile, 'Test.txt');
  ReWrite(myFile);

  // Запись чисел в строку
  WriteLn(myFile, '1 2 3 4');   // Обратите внимание, что 4 будут проигнорирована

  // Запись чисел как отдельные параметры
  WriteLn(myFile, 5, ' ', 6, ' ', 7);

  // Запись чисел как отдельные параметры
  WriteLn(myFile, '8 9');       // Отсутствие чисел будет замечено 0

  // Закрытие фала
  CloseFile(myFile);

  // Переоткрытие фала для чтения
  Reset(myFile);

  // Показ содержимого фала
  while not Eof(myFile) do
  begin
    ReadLn(myFile, n1, n2, n3);
    ShowMessage(IntToStr(n1)+' '+
                IntToStr(n2)+' '+
                IntToStr(n3));
  end;

  // Закрытие фала в последний раз
  CloseFile(myFile);
end;
1 2 3
5 6 7
8 9 0
 


Оплата за обучение в Kata Academy только после твоего трудоустройства в IT, начни карьеру Middle Java-разработчика



Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки? Slurm подготовили для вас особенный продукт!





форум программистов


© Форум Delphi  |  Форум Pascal   |  Блог программистов   |  Исходники Delphi   |  Автор сайта  |  Ссылки   |  Английская версия