ReadLn

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

|| 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 прочтёт только одну строку, а так как указатель чтения из файла мы не передвигали, то эта строка будет первой строкой текстового файла.

     Для прочтения всего текстового файла удобно использовать цикл.

Пример кода:

var
   myFile : TextFile;
   n1, n2, n3 : Integer;

begin
   // Try to open the Test.txt file for writing to
   AssignFile(myFile, 'Test.txt');
   ReWrite(myFile);

   // Write numbers in a string
   WriteLn(myFile, '1 2 3 4');// Note that the 4 will be ignored

   // Write numbers as separate parameters
   WriteLn(myFile, 5, ' ', 6, ' ', 7);

   // Write numbers as separate parameters
   WriteLn(myFile, '8 9');// Missing numbers will be seen as 0

   // Close the file
   CloseFile(myFile);

   // Reopen the file for reading
   Reset(myFile);

   // Display the file contents
   while not Eof(myFile) do
   begin
      ReadLn(myFile, n1, n2, n3);
      ShowMessage(IntToStr(n1)+' '+
                  IntToStr(n2)+' '+
                  IntToStr(n3));
   end;

   // Close the file for the last time
   CloseFile(myFile);
end;

Результат выполнения:

1 2 3
5 6 7
8 9 0

Клуб программистов

Delphi programming

ReadLn

Описание:

Пример кода:

Результат выполнения: