Текст из Memo (1 колонка) разделить на 2 колонки

[FleXik]

Текст из Memo (1 колонка) разделить на 2 колонки, как это можно реализовать?

вместо:

1
2
3
4
5
6
7
8
9
10

должно быть

1 2
3 4
5 6
7 8
9 10

Спасибо.

[northener]

for i:=Memo.Lines.Count div 2 downto 1 do begin
  Memo.Lines[i*2-2]:=Memo.Lines[i*2-2]+'   '+Memo.Lines[i*2-1];
  Memo.Lines.Delete(i*2-1);
end;

Вроде так.

[FleXik]

northener, все збс, спасибо, но код кривоват в плане отсутсвия например ; кое где :D

[Аватар]

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

но код кривоват

FleXik, даренному коню в зубы не смотрят. Имхо, спасибо было бы достаточно, без упреков

[FleXik]

даренному коню в зубы не смотрят. Имхо, спасибо было бы достаточно, без упреков

да я не упрекаю, я очень сильно благодарен за помощь, просто может кто-то потом эту тему читать будет...

[northener]

<offtop>

спасибо, но код кривоват в плане

А что я? Я как все. Вот и не хотел портить статистику. 90% кода в интернете - говно

</offtop>