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

[Leksda]

Здравствуйте, столкнулся со следующей задачей:
есть поля memo1 и memo2, в memo1 введены сл. строки

строка0 фраза01 фраза02 фраза03
строка1 фраза11 фраза12 фраза13
слово из фраза11
строка2 фраза21 фраза22 фраза23
строка3 фраза31 фраза32 фраза33

все составляющеи строки нужно завести в строковую переменную а затем объеденить в одну строку и вывести в memo2

for I := 0 to memo1.lines.Count - 1 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);
    sresult:=s1+s2+s3+s4;
end;

задача следующая:
если длина строки меньше чем 20 символов (строка 'слово из фраза11') объеденить со строкой 'фраза 11', чтобы в memo2 получилось :

строка0 фраза01 фраза02 фраза03
строка1 фраза11 слово из фраза11 фраза12 фраза13
строка2 фраза21 фраза22 фраза23
строка3 фраза31 фраза32 фраза33

[XuTpbIu]

Что-то я слегка не догнал что такое забавное делает код? Я вот к примеру не вижу 45 символа нив 1 из строк. И поясните пожалуйста что значит "все составляющеи строки нужно завести в строковую переменную"??

[Leksda]

для 1 строки memo1
s1= 'строка0'
s2= 'фраза01'
s3= 'фраза02'
s4= 'фраза03'
- "все составляющеи строки нужно завести в строковую переменную"!

нужно чтобы для второй строки memo1
s1= 'строка1'
s2= 'фраза11'+'слово из фраза11'
s3= 'фраза12'
s4= 'фраза13'

[Stilet]

Ну слей все в одну строку:

Memo.Lines.Delimiter:=' ';
S:=Memo.Lines.DelimitedText;

[XuTpbIu]

Извиняюсь, но я тут должен по работе бежать Так что выложу только что сделал наработку: Она разбивает каждую строку текста на слова.
Осталось дописать вторуюб часть

type
TWordArray = Array of String;

var
  AllText: Array of TWordArray;

procedure StringToWords(SS: String; var WordArray: TWordArray);
var
  S, TmpStr: String;
begin
  SetLength(WordArray, 0);
  S := SS;
	While Pos(' ', S) <> 0 do
  begin
    TmpStr := Copy(S, 1, Pos(' ', S) - 1);
    SetLength(WordArray, Length(WordArray) + 1);
    WordArray[High(WordArray)] := TmpStr;
    Delete(S, 1, Pos(' ', S));
  end;
  if S <> '' then
  SetLength(WordArray, Length(WordArray) + 1);
    WordArray[High(WordArray)] := S;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  I, J: Integer;
  TmpStr: String;
begin
  SetLength(AllText, 0);
  Memo2.Lines.Clear;
  for I := 0 to Memo1.Lines.Count do
  begin
    SetLength(AllText, Length(AllText) + 1);
    StringToWords(Memo1.Lines[I], AllText[High(AllText)]);
    TmpStr := '';
    for J := 0 to Length(AllText[I]) - 1 do
      TmpStr := TmpStr + AllText[I][J];
    Memo2.Lines.Add(TmpStr);
  end;
end;

[XuTpbIu]

Stilet
Весть текст это хорошо, но как потом разбивать на строки?

[Leksda]

хм.. в том то и дело, что разбивать на слова не нужно!!! приведу конкретный пример

01/01/2009 ул. Пушкина 37 тел. 1111111
02/01/2009 ул. Гоголя тел. 2222222
03/01/2009 ул. 7 октября тел. 3333333
1918 года

это все надо привести к следующему виду

01/01/2009 ул. Пушкина 37 тел. 1111111
02/01/2009 ул. Гоголя тел. 2222222
03/01/2009 ул. 7 октября 1918 года тел. 3333333

[Stilet]

XuTpbIu

Да откуда мне, опрславленному антителепату, дотелепать мыслю автора?

Leksda

Чет я не понял всетки каков критерий обьединения?

[XuTpbIu]

Тут по крайней мере надо ещё знать индекс строки в которую вставлять(или это всегда предыдущая) и позиция на которую должно быть вставлена строка длиною меньше 20 символов

[Leksda]

значится в memo
строка0 фраза01 фраза02 фраза03
строка1 фраза11 фраза12 фраза13
слово из фраза11
строка2 фраза21 фраза22 фраза23
строка3 фраза31 фраза32 фраза33

в цикле присваиваем 4 строковым переменным значения

for I := 0 to memo1.lines.Count - 1 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);
end;

причем "фраза n" может содержать как одно слово так и несколько.
далее, текст в memo берется из текстового файла
и изначально он выглядит так

01/01/2009| ул. Пушкина 37      |тел. 1111111  |фикс
03/01/2009 | ул. 7 ноября         |тел. 2222222  |моб
                 |1918 года
03/01/2009 |ул. Гоголя             |тел. 3333333  |фикс
04/01/2009 |ул. Кармзина          |тел. 4444444 |фикс

критерий объединения:
в цикле сделать проверку и если строка меньше 30 символов в данном случае '1918 года', то эту строку добавить в данном случае к 'ул. 7 ноября' чтобы получилось

01/01/2009| ул. Пушкина 37      |тел. 1111111  |фикс
03/01/2009 | ул. 7 ноября  1918 года       |тел. 2222222  |моб
03/01/2009 |ул. Гоголя             |тел. 3333333  |фикс
04/01/2009 |ул. Кармзина          |тел. 4444444 |фикс

получается что если строка меньше заданной то её добавляют в конец s2 это всегда подстрока предыдущей строки!