Правила форума
SeekEoln (функция)Язык:
Русский
English
SeekEoln (функция)
Возвращает состояние конца строки в файле.
Объявление
Function SeekEoln [ (Var F : Text) ] : Boolean;
Режим
Windows, Real, Protected
Замечания
Может быть использована только для текстовых файлов. Файл должен быть открыт.
Смотри также
Пример
Язык:
Русский
English
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.
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.
::
::
::
