Вопрос по работе функции Eof(f) f:TextFile

[WsPoison]

Имеется текстовый файл который состоит из непечатных символов (в том числе)
Идет построчное считывание файла.
Readln(f,s);
Используется функция Eof(f{f:TextFile})
Файл считывается до тех пор пока не натыкается на символ с кодом 26. Функция "видит" конец файла ошибочно.
Подскажите как "обмануть", если можно так выразится, функцию Eof(f).

[Serge_Bliznykov]

встречный вопрос - для чтения бинарных файлов много удобнее и надёжнее использовать TFileStream - чем вызвана необходимость чтения через TextFile ?

[mss]

> текстовый файл который состоит из непечатных символов (в том числе)

В старину за желание странного головы рубили)

Если текстовый файл слодержит коды непечатных символов, НЕ относящихся ни к одному из стандартов на использование управляющих символов, то это уже не текстовый файл. Посему нет никакого оправдания применению для работы с таким файлом заведомо неподходящих для этого алгоритмов.

[WsPoison]

Программа с таким алгоритмом была мною создана более года назад, и при помощи таковой был открыт не один десяток файлов, как говорится, чем умеем тем и оперируем. (К вопросу почему TextFile). За помощь спасибо! Буду разбираться.

[_-Re@l-_]

Для бинарных ещё просто File неплохо юзать....

[WsPoison]

Уважаемые эксперты, не сочтите за наглость, помогите "добить" эту тему.

Структура файла такова
Строка 1
Строка 2
Строка n

В некой строке Х встречается символ который функция Eof(f) принимает за конец файла.

Изложите пожалуйста процедуру как можно построчно считать файл. В процессе загрузки файла строки поочередно присваиваются переменной TString.

Спасибо, респект и уважуха знающим людям!

[_-Re@l-_]

Вот так.

Var
     myFile:TextFile;
     S : String;
Begin
        AssignFile(F,'c:\myfile.txt');
        Reset(F);
        While Not Eof(F) Do
        Begin
                Readln(F,S);   // Читаем строку из файла
                Writeln('Текст - ',S); // Выводим на экран
        End;
        CloseFile(F);
        Readln;
End.

[WsPoison]

Сообщение от _-Re@l-_

Вот так.

Var
     myFile:TextFile;
     S : String;
Begin
        AssignFile(F,'c:\myfile.txt');
        Reset(F);
        While Not Eof(F) Do
        Begin
                Readln(F,S);   // Читаем строку из файла
                Writeln('Текст - ',S); // Выводим на экран
        End;
        CloseFile(F);
        Readln;
End.

Гениально. Именно так выглядит процедура в моей программе. И все работает до тех пор пока в некой строке не оказывается символ с кодом 26.

[Hacker19_90]

хм... А если так

size := sizeof(f); {где f фаловая переменная}
str := '';
j := 0;
for i := 1 to size do
begin
    i := 0;
    while (not(EOLN(f))) do
    begin
        Inc(i);
        Inc(j);
        Read(f, ch);
        str[i] := ch;
        if ch = 26 then {или #26 я не помню}
            Writeln ('В ', j, 'строке есть конец файла');
    end;
    Writeln (str);
end;

[WsPoison]

Попробую. Но по-моему цикл завершится опять не вовремя.