Почему не читаются строки 0 длины ?

← →
blackman © (2003-02-13 21:01) [0]

var FNout,FNin,S,Ds:string;
Fin,Fout: TextFile;
...
AssignFile(Fin, FNin); { File input }
AssignFile(Fout, FNout); { File output }
Reset(Fin);
Rewrite(Fout);
while not SeekEof(Fin) do
begin
Readln(Fin, S);
Ds:=S;
....
Writeln(Fout,DS);
end;
CloseFile( Fin );
CloseFile( Fout );
Если в исходном есть строки только 0 длины они не будут прочитаны. Почему такое безобразие в DELPHI ?

← →
Anatoly Podgoretsky © (2003-02-13 21:18) [1]

Не охлта проверять, но если Writeln(Fout,S) или if Length(S) = 0 then writeLn(F) else writeLn(F, S)
Примерно такая идея

← →
Palladin © (2003-02-13 21:21) [2]

ты help читал по SeekEOF? гений... :)
проверка на конец файла есть Eof

← →
Anatoly Podgoretsky © (2003-02-13 21:26) [3]

Точно, ни когда не использовал поэтому на него не подумал :-)

← →
Anatoly Podgoretsky © (2003-02-13 21:28) [4]

Удобная кстати функция, в том числе и для данного вопроса.

← →
blackman © (2003-02-13 21:53) [5]

>Anatoly Podgoretsky
Да нет! Readln просто проскакивает пустые.
if length(s) = 0 then showmessage("Не шмогла!");
не говорит никогда.
>Palladin
Не горячись, подумай

← →
blackman © (2003-02-13 22:00) [6]

Пардон. Перепутал, что кому
>Palladin
Да нет! Readln просто проскакивает пустые.
if length(s) = 0 then showmessage("Не шмогла!");
не говорит никогда.
>Anatoly Podgoretsky
Не горячись, подумай

А прикол неплохой! Правда ?

SeekEOF согласно описанию проаускает пустые строки.
EOF этого не делает, честно проверяет на конец файла.

да почитай же наконец help!!! там много что полезного пишут!!

Чего расшумелись-то написал же Перепутал.
Help? Help! Конечно прочитал и давно
Call SeekEof to determine whether there is only whitespace between the file pointer and the end of a file.
Уж и пошутить нельзя

Почему не читаются строки 0 длины ? Найти похожие ветки