Облака / Clouds
    Go to Copy.com
    Copy.com
    The bast cloud service
    Get 20 GB free!!!
    Support WebDav.
    Show more >>

    Go to Dropbox.com
    Dropbox.com
    time-tested cloud storage
    Support WebDav.
Все бесплатно
    Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.



Вопросы
  Упаковать *.mdb-файл
   Категория: Базы данных
  Узнать все IP-адреса компьютера
   Категория: Интернет и Сети
  Изменить структуру ABS (AbsoluteDB)
   Категория: Базы данных
  Компоненты ToolBar и PageScroller
   Категория: Компоненты
  К-во рабочих дней в месяце
   Категория: Математика
  Упаковать BD Accuracer
   Категория: Базы данных
  Как подключить или отключить сетевой диск
   Категория: Интернет и Сети
  Создание кнопки на панели в IE
   Категория: Интернет и Сети
  Узнать запущен ли сервис FireBird
   Категория: Интернет и Сети

Delphi - Справочник: ReadLn

ABCDEFGHIJKLMNOPQRSTUVWXYZ

  << Вернуться  

 ReadLn
1 procedure ReadLn ( var Variable1 {,var Variable2...} ) ;

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

Версия 1

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

Версия 2

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

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

Для прочтения всего текстового файла удобно использовать цикл.
Пример кода: Чтение каждой текстовой строки как набор 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
Примечание:
ReadLn не буферизует записи, так что его выполнение ухудшено. BlockRead более эффективен, но приспособлен для записи в двоичные файлы.

  << Вернуться