чтение из файла

← →
reticon © (2003-02-06 11:05) [0]

Уважаемые Мастера, вопрос такой. Имеется текстовый файл, в нем несколько абзацев. Как программно читать из файла каждый раз конкретно только по одному абзацу?

← →
Reindeer Moss Eater (2003-02-06 11:06) [1]

В текстовом файле нет абзацев

← →
iNew © (2003-02-06 11:11) [2]

По какому критерию ты выделяешь абзац так и читай.

← →
Reindeer Moss Eater (2003-02-06 11:13) [3]

Даже если критерии определить, то все равно работая с файлом как с текстовым, считать ровно один абзац не получится (если конечно с него не начинается файл)

← →
RWolf (2003-02-06 11:36) [4]

Абзац можно определить, как перевод строки с определенным количеством пробелов после него.
Таким образом, абзац можно прочитать примерно так:
s:="";olds:=""; while not eof(f) do begin if s<>"" then добавить_к_текущему_абзацу(olds); olds:=s; readln(f,s); if s[1]=" " then начать_запоминать_новый_абзац; end;

← →
RWolf (2003-02-06 11:38) [5]

очепятка, третью строку читать так:
if olds<>"" then добавить_к_текущему_абзацу(olds);

← →
MAPI (2003-02-07 13:38) [6]

Удалено модератором
Примечание: Тебе запретили задавать вопросы и поэтому ты лезешь в чужую ветку

← →
Anatoly Podgoretsky © (2003-02-07 13:51) [7]

RWolf (06.02.03 11:36)
Ну и что, а у него может другое определение. Но у тебя какое то странное определение, никогда такого не встречал.

← →
reticon © (2003-02-07 16:27) [8]

Нет, Вы не так поняли, у меня текст. файл, в нем содержится текст, разбитый на несколько частей. Как читать эти части в различном порядке?

← →
Reindeer Moss Eater (2003-02-07 16:29) [9]

Можно читать только последовательно. Строка за строкой.

все тебя прекрасно поняли.
проанализируй каким образом разбитый, это и будет критерий для определения нового абзаца.

← →
Reindeer Moss Eater (2003-02-07 16:35) [11]

Хоть миллион критериев.
Повторять ReadLn пока не конец файла.

ну если уж на то пошло, то TStringList.LoadFromFile, и анализировать потом список, быстрее будет...

я же не про чтение, я про принцип отделения одного абзаца от другого...

← →
Reindeer Moss Eater (2003-02-07 16:43) [13]

А автор про чтение файла

чтение из файла Найти похожие ветки