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

[Костян Пират]

Поискал по форуму, ответа на свой вопрос не нашёл... может искал как-то коряво, но тем не менее, проблема такая: необходимо выполнить поиск определенных слов в Memo и выделить их определенным цветом

мои предположения (псевдокод, так скажем):

with Memo1 do
 for i:=0 to Lines.Count -1 do
  begin
    if length(Lines[i])>=[длина ИС]
     then
      for j := 1 to length(Lines[i])-[длина ИС] do
       if copy(Lines[i],j,])-[длина ИС] )=[ИС]  then
        [окрасить ИС];               
  end;

примечание: ИС - искомое слово

но возможно есть какая-то спецфункция для отыскания слова - тогда проще может как-то можно сделать... но главный вопрос - окраска отдельного слова, поск слова как-нибудь выдумаем

[mihali4]

Для поиска слов лучше использовать POS и POSEX.

[DomiNick]

Выделять цветом в Memo кажется нельзя... Используй RichEdit - Вот как раз недавно писал:

http://programmersforum.ru/showthread.php?p=214152

[Костян Пират]

спасибо за pos! действительно будет проще... а что такое posex? и чем она отличается от pos?

ладно, при помощи pos найдём позицию слова в строке... осталось дело за малым: покрасить это слово...

ой, пока писал ответ тут ещё народ помощь предлагает

[Костян Пират]

Действительно, в RichEdit выделяется там... Спасибо!

Но не могли бы пояснить что есть FindText? точнее даже последний атрибут [stMatchCase] или [stWholeWord]...

[mihali4]

В любом месте юниты набираем "FindText", жмем F1 и читаем справку по ней... И по чему угодно другому.

[Костян Пират]

еще бы с английским подружться...

[DomiNick]

Да там всё элементарно...
st - сокращение от "Searh Type", а остальное и словарём можно перевести...

[Jeni]

stWholeWord - искать только слово целиком. Например, если искать "123" в строке "123 1234 12345", то будет найдено лишь один раз (в противном случае - три раза).

stMatchCase - учитывать при поиске регистр символов, т.е. "абв" в строке "абв аБв АБВ" будет найдено один раз (в противном случае - три раза).

[Stilet]

Было уже такое:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;s:string;  cl:TColor;
begin
s:='if';
for i:=0 to length(RichEdit1.Lines.Text) do begin
 if copy(RichEdit1.Lines.Text,i,length(s))=s then begin
  //********** WITH **********
  with RichEdit1 do  begin
    SelStart:=i-1;
    SelLength:=length(s);
    SelAttributes.Color:=clred;
  end;
  //********** END WITH ****** {}
 end;
end;
end;