SeekEoln (функция)

Язык:
Русский
English

 SeekEoln (функция)


Возвращает состояние конца строки в файле.

Объявление

 Function SeekEoln [ (Var F : Text) ] : Boolean;

Режим

Windows, Real, Protected

Замечания

Может быть использована только для текстовых файлов. Файл должен быть открыт.

Смотри также

Пример

Язык:
Русский
English


 { Пример программы для функций SeekEof и SeekEoln }

uses Crt;

var
  F    : Text;
  I, J : Integer;

begin
  Assign(F, 'TEST.TXT');
 ReWrite(F);
 { Создаёт файл с 8-ю цифрами и пробелами в конце строк }
 WriteLn(F, '1 2 3 4 ');
 WriteLn(F, '5 6 7 8 ');
 Reset(F);
 { Считываем данные обратно. SeekEoln возвращает
    True, если в данной строке больше нет цифр;
    SeekEof возвращает True, если в файле больше нет
    текста (кроме пробелов) }

 while not SeekEof(F) do
 begin
   if SeekEoln(F) then
     ReadLn; { Переходим на следующую строку }
   Read(F, J);
   WriteLn(J);
 end;
end.
Тэги: SeekEoln
| G+
Код для вставки: :: :: :: ::
Поделиться: // //