function Retturn(e)
if eof(e) ; если файл закнончился то и переводить некуда
retrun 0
else
ch=0
while (eof(e)=0) and (ch<>13) ; пока не конец файла и не встречен символ перевода каретки
ch=readbyte(e) ; читаем символ
end while
endif
end function
|
Ето на каком языке, бесик чтоли?