Lancellot, используй Memo с вкладки Standard как для ввода, так и для вывода. Для получения строки текста пиши
Memo1.Lines.Strings[i] (TMemo.Lines.Strings - массив строк); для получения количества строк -
Memo1.Lines.Count; Для добавления новой строки в конец поля
Memo1.Lines.Add('Наш_текст'); если нужно изменить строку уже существующую (хотя из твоего поста следует, что это навряд ли придётся делать) -
Memo1.Lines.Strings[i]:='Наш_текст'. Для очистки поля -
Memo1.Lines.Clear; для удаления некоторой строки -
Memo1.Lines.Delete(i). Для твоей задачи надо прогнать цикл наподобие:
Код:
Memo2.Lines.Clear; // Это чтобы не оставался предыдущий текст
for i:=1 to Memo1.Lines.Count do
for j:=1 to length(Memo1.Lines[i]) do
begin
Memo2.Lines.Add("");
Memo2.Lines[i]:=Memo2.Lines[i] + Memo1.Lines[i][j] + " ";
end;
Сразу говорю, код не проверял, но должен работать
Все шаги от создания формы и добавления 2-х Memo и кнопки, назначения процедуры на кнопку и т.д. не расписываю, если нужно - обращайся в ICQ.