RichEdit - Выделение цветом слов

[fakir9999]

У мя условие, я выделяю текст в ричедите, по нажатию кнопки проверяется если слово больше 12 символов, то окрашиваются последние 3 символа в этом слове. Как это можно сделать?

[Stilet]

Не понимаю твоего "восторга".
Чем тебя не устраивают твои предидущие темы вроде этой:
http://www.programmersforum.ru/showt...=SelAttributes

И почему ты не зарядил поиск по слову SelAttributes?

или ты хочешь чтоб все за тебя полностью написали?

[fakir9999]

А ты не могу удалить эту тему а ту оставить, которую я сегодня создал?а? я попросил помощи может у кого есть мыслишка и приложил код, а ты наверно увидел продублированную тему и неглядя удалил, огромное тебе на этом, спасибо.

[Stilet]

Только из уважения к "пользователям" я вытаскиваю сюда твой код.
Но учти это предупреждение последнее - кросспост удаляется незамедлительно.

Как сделать чтоб окрасить в слове последние 3 символа у меня посто не получается вот код

Код:

procedure TForm1.Button1Click(Sender: TObject);
var a :integer;text:string;i:integer;
begin
for i:=0 to memo1.lines.count-1 do begin
text:=memo1.lines[i];
a:=0;
if length(text)>11 then
while a<=length(richedit1.Text) do
begin
richedit1.selstart:=richedit1.FindT ext(text,a,Length(RichEdit1.Text)-a,[stWholeWord]);
richedit1.SelLength:=(length(text)-3);
a:=richedit1.selstart+(length(text)-3);
richedit1.SelAttributes.Color:=clye llow;
application.processmessages;
end;
end;
end;
end.
Т.е. слово подразумевает окрашивается вот так
подразумевает как сделать чтоб окрашивалось последние 3 в желтый а не перед ними ?

Иначе попрошу колег тебя забянить как злосного кросспостера.