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