Есть задача - Помогите пожалуйста!

← →
DOG-ON-RUN (2002-06-27 02:09) [0]

Есть задача:
Компонент RichEdit…
В нем есть текст, в каждой строчке по три слова разделенных одним пробелом:
qwe rt yuiop
a sdfghj kl
zxcvb n m
Нужно выровнять этот текст так, чтобы стало три ровных столбика:
qwe--------rt------------yuiop
a------------sdfghj------kl
zxcvb------n------------m
Что-то вроде этого (Вместо черточек можно использовать пробелы, но лучше как-то с помощью программной линейки какой-нибудь…)
Длинна слов при этом неизвестна и количество таких строчек тоже!
Вот и вся моя проблема… Целый день сижу думаю…
Помогите пожалуйста, очень прошу!

← →
MBo © (2002-06-27 06:47) [1]

Шрифт моноширинный!!! (Courier, например)
Для других придется использовать Canvas.TextWidth, но абсолютно точно все равно не получится

procedure TForm1.Button1Click(Sender: TObject);
var
i,j : integer;
slist:tstringlist;
s:string;
begin
slist:=tstringlist.create;
for i:=0 to richedit1.lines.count-1 do begin
slist.commatext:=richedit1.lines[i];
s:="";
for j:=0 to slist.count-2 do
s:=s+slist[i]+StringOfChar(" ",12-length(slist[i]));
//предполагается, что слова не длиннее 11 символов
s:=s+slist[slist.count-1];
richedit1.lines[i]:=s;
end;
slist.free;
end;

Есть задача - Помогите пожалуйста! Найти похожие ветки