eof.pas

Пример программы для функций Eof, Read и Write (текстовые файлы).

Код примера
    {Eof.PAS}
 
    { Пример программы для функций Eof, Read и Write (текстовые файлы) }
 
    Uses WinCrt, WinDos;
 
    Var F : Text;
        Ch : Char;
 
   Begin
    { Получаем имя файла из командной строки } 
    Assign(F, ParamStr(1));
    Reset(F);
    While Not EOF(F) Do
   Begin
    Read(F, Ch);
    Write(Ch);  { Выводим содержимое файла на экран }
   End;
  End.

Скачать eof.pas