Объединение строк в Memo

[Stilet]

причем "фраза n" может содержать как одно слово так и несколько.

ТОгда тебе никогда не определить длины слова при таких условиях.

в цикле сделать проверку

Ну так сделай, чего ждеш.

for i:=0 to Memo.Lines.count-1 do begin
 if length(Trim(memo.lines[i]))<30) then begin
   memo.lines[i-1]:=memo.lines[i-1]+memo.lines[i];
  memo.lines.delete(i);
end;
end;

[XuTpbIu]

(Не компилил)

I := 0;
while I < memo1.lines.Count - 2 do
begin
    s:=memo1.Lines[i];
    s1:=Copy(s,0,7);
    s2:= Copy(s,8,7)
    s3:= Copy (s,16,7);
    s4:= Copy (s,24,7);
    if Length(memo1.lines[I + 1]) < 30 then
    begin
      s2 := s2 + Memo1.Lines[I + 1];
      Inc(I);
    end;
    Inc(I);
end;

[Leksda]

всем спасибо! решил, делал проверку если строка больше заданной, разбивал строки на подстроки. заносил подстроки в переменные и выводил их строкой в memo, если меньше, то добавлял строку в переменную и плюсовал к нужной переменной! далее формировал новую строку из изменненных строк и удалял последнюю строку в memo вместо неё записывал мод. строку