Разместите нашу кнопку!

Новые статьи:

Programming articles

Создание сайтов на шаблонах

Множество вариантов работы с графикой на канве

Шифруем файл с помощью другого файла

Перехват API функций - Основы

Как сделать действительно хороший сайт

Создание почтового клиента в Delphi 7

Применение паскаля для решения геометрических задач

Управление windows с помощью Delphi

Создание wap сайта

Операционная система unix, термины и понятия

SQL враг или друг

Возникновение и первая редакция ОС UNIX

Оптимизация проекта в Delphi

Ресурсы, зачем нужны ресурсы

Термины программистов 20 века

Советы по созданию собственного сайта с нуля

Шифруем файл с помощью пароля

Фракталы - геометрия природы

Crypt - Delphi программа для шифрования

Рассылка, зачем она нужна и как ее организовать?

Учебник по C++ для начинающих программистов

Уроки для изучения ассемблера

Загадочный тип PCHAR

Средства по созданию сайтов

Операторы преобразования классов is и as

Borland Developer studio 2006. Всё в одном

Создание базы данных в Delphi, без сторонних БД


Software engineering articles



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