Чтение файла. Помогите пожалуйста. -))

← →
Toxa_ua © (2005-11-07 20:40) [0]

Есть у меяня текстовый файл. Я посимвольно читаю строку этого фйла:
while not Eoln(FileName) do Read(FileName,Ch);
Как мне перейти на следующую строчку и продолжить чтение строки?

← →
Джо © (2005-11-07 20:43) [1]

читай сразу построчно:
while not Eof(filevar) do ReadLn (filevar,stroka);

← →
umbra © (2005-11-07 20:43) [2]

Не проще ли читать сразу всю строку? а "перейти на новую" просто - пропустите два символа (если файл создан в виндовс, это будут #13 и #10) и читайте посимвольно дальше

← →
Toxa_ua © (2005-11-08 03:00) [3]

Читать всю строку не проще, т.к у меня в строке нахадятся несколько полей информации, разделенных символом "*" (хотя можно и строку, разобрав её потом по символам, но в моем случаем хотелось бы читать по символам). А как сам переход реализовать? -Чему присваивать надо символ с кодом #13 чтоб указатель установился в начало next строки (Readln не пожходит)?

В-общем, непонятно откуда такое странное желание читать именно посимвольно. Во-первых, физически читать оно будет все-равно НЕ посимвольно, а во-вторых, ты изначально обрекаешь себя на падение производительности из-за излишне частого обращения к Read. Но, тем не менее, вот прямой ответ на поставленный вопрос:
var Fv: TextFile; Ch: Char; begin AssignFile (Fv,"d:\1.txt"); Reset (Fv); while not Eof(Fv) do begin Read (Fv,Ch); // тут что-то делаем с символом end; CloseFile (Fv); end;
Или, если угодно, даже так:
var Fv: TextFile; Ch: Char; begin AssignFile (Fv,"d:\1.txt"); Reset (Fv); while not Eof(Fv) do begin while not Eoln (Fv) do begin Read (Fv,Ch); // тут что-то делаем с символом end; ReadLn (Fv); // пропускаем #13#10 end; CloseFile (Fv); end;

Чтение файла. Помогите пожалуйста. -)) Найти похожие ветки