IPB

> SeekEof (функция)
Чат
Форум
Загрузка...
 

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

 SeekEof  (функция)


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

Объявление

 Function SeekEof [ (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.
 
 К началу страницы 
Тэги: SeekEof
 

Код для вставки: :: :: :: ГОСТ ::
Поделиться: //
 



-
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"