Есть задача - Помогите пожалуйста!
DOG-ON-RUN © (2002-06-27 02:09:00)
Есть задача:
Компонент 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:00) [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;
Наверх 
ЧАТ |
Орешник |
|
