IPB

> SeekEof.PAS
Форум
Загрузка...
 
Час быка
Час быка
Карта Интернета
Internet Map
Яндекс.Метрика

Язык:
Русский
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.
 
 К началу страницы 
Тэги:
 

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


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