Парсинг строк в Мемо

[Lauri]

Всем доброй ночи. Такая проблема, имеется мемо со строками. Их парное количество. Нужно обьеденить каждую непарную, с каждой парной. Т.е первую с второй, третью с четвёртой и тд. Чё то на ночь башка не варит как этоо сделать Задача проста вроди. Прошу у вас помощи

[veniside]

i := 0;
while (i < Memo1.Lines.Count - 1) do begin
  //
  Memo1.Lines[i] := Memo1.Lines[i] + Memo1.Lines[i + 1];
  inc(i, 2);
end;

[Lauri]

Сообщение от veniside

i := 0;
while (i < Memo1.Lines.Count - 1) do begin
  //
  Memo1.Lines[i] := Memo1.Lines[i] + Memo1.Lines[i + 1];
  inc(i, 2);
end;

Спасибо, работает, только не удаляет парную строку. Т.е нужно что бы осталась только "склеенная" строка

[veniside]

> не удаляет парную строку

а, ну да, мне тоже показалось, что чего-то не хватает )

i := 0;
while (i < Memo1.Lines.Count - 1) do begin
  //
  Memo1.Lines[i] := Memo1.Lines[i] + Memo1.Lines[i + 1];
  Memo1.Lines.Delete(i + 1);
  inc(i);
end;

[Lauri]

Сообщение от veniside

> не удаляет парную строку

а, ну да, мне тоже показалось, что чего-то не хватает )

i := 0;
while (i < Memo1.Lines.Count - 1) do begin
  //
  Memo1.Lines[i] := Memo1.Lines[i] + Memo1.Lines[i + 1];
  Memo1.Lines.Delete(i + 1);
  inc(i);
end;

Спасибо, работает

[Lauri]

Сори, но как преобразавать такую функцию для трёх строк?
пробовал вот так, но не получается

procedure MakeThree;
var
I:integer;
begin
i := 0;
while (i < form1.Memo2.Lines.Count - 1) do begin
  //
  form1.Memo2.Lines[i] := form1.Memo2.Lines[i] + form1.Memo2.Lines[i + 1];
  form1.Memo2.Lines[i] := form1.Memo2.Lines[i] + form1.Memo2.Lines[i + 2];
  form1.Memo2.Lines.Delete(i + 1);
  form1.Memo2.Lines.Delete(i + 2);
  inc(i);
end;
end;

[veniside]

вот универсальный вариант на все случаи жизни )

procedure TForm1.combineStrings(N: Integer);
var
  i, j: Integer;
begin
  for i := 0 to Memo1.Lines.Count - N do begin
    for j := 1 to N - 1 do begin
      //
      Memo1.Lines[i] := Memo1.Lines[i] + Memo1.Lines[i + 1];
      Memo1.Lines.Delete(i + 1);
    end;
  end;
end;

[Lauri]

Сообщение от veniside

вот универсальный вариант на все случаи жизни )

procedure TForm1.combineStrings(N: Integer);
var
  i, j: Integer;
begin
  for i := 0 to Memo1.Lines.Count - N do begin
    for j := 1 to N - 1 do begin
      //
      Memo1.Lines[i] := Memo1.Lines[i] + Memo1.Lines[i + 1];
      Memo1.Lines.Delete(i + 1);
    end;
  end;
end;

Спасибо огромное