Правила форума
SeekEof (функция)Язык:
Русский
English
SeekEof (функция)
Возвращает состояние конца файла.
Объявление
Function SeekEof [ (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.
::
::
::
