Попросили сделать задачку (со второго курса). Я взялся посмотреть. Вот сижу и никак немогу сделать перенос грамотное форматирование по абзацам. И я не знаю как сделать лучше (читай - правильно). Надеюсь здесь мне помогут. Вобщем мне хотелось бы посмотреть на ваш вариант программы. Все свои идеи и наработки, ОГРОМНАЯ просьба кидать сюда. Если кому интересно, то я сейчас могу закинуть свой вариант решения, только он корявый.

Задача: Написать программу печати текстового файла с размещением текста по 64 символа в строке с переносом слова на следующую строку, если оно не уместилось. Перед каждым абзацем предусмотреть вставку пустой строки перед каждым абзацем. Абзац - пять пробелов в начале строки. (pascal/delphi console).

Код

program Project1; {$APPTYPE CONSOLE} uses  SysUtils, Classes; const dx:integer=64; var  txt:   TStringList;  s,p:   string;  x,r,y: integer; begin  txt:=TStringList.Create;  txt.LoadFromFile('1.txt');  for y:=0 to txt.Count-1 do  begin    x:=1; s:=txt[y];    while x<Length(s) do    begin      p:=copy(s,x,dx); r:=Length(p);      if r=dx then        while (p[r]<>' ') and (r>0) do dec(r);      if r=0 then r:=dx;      WriteLn(copy(p,1,r));      inc(x,r);    end;    WriteLn;  end; end.

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

Это сообщение отредактировал(а) Snowy - 22.11.2004, 18:13

Это я сделал. Но немного не так. За алгоритм спасибо. А как сделать что бы по абзацам выводилось?
(см условие задачи)