Редактирование в RichEdit

← →
Fenix © (2006-03-03 19:09) [0]

Доброе время суток.
Меня интересуют алгоритмы нахождения в RichEdit определенного словосочетания, и изменения его цвета и размера. Подскажите наиболее актуальные алгоритмы.
Допустим у меня есть текст, и в нем надо выделить допустим "<br>". Притом, что это должно происходить при изменении текста в RichEdit"e.

← →
Handle (2006-03-03 20:56) [1]

Функция замены в строке всех вхождений одной подстроки на другую

В отличие от других подобных функций, эта - не зависнет, если в строке нужно
заменить не только одно слово совершенно другим,
но и допустим, слово "Штаны" на "-Штаны-"
(Т.е. начальное слово после замены остается, но к нему добавляется какой нибудь
символ справа, или слева. В данном случае по краям слова добавлен знак минуса).

function Replace(Str, X, Y: string): string; {Str - строка, в которой будет производиться замена. X - подстрока, которая должна быть заменена. Y - подстрока, на которую будет произведена заменена} var buf1, buf2, buffer: string; i: Integer; begin buf1 := ""; buf2 := Str; Buffer := Str; while Pos(X, buf2) > 0 do begin buf2 := Copy(buf2, Pos(X, buf2), (Length(buf2) - Pos(X, buf2)) + 1); buf1 := Copy(Buffer, 1, Length(Buffer) - Length(buf2)) + Y; Delete(buf2, Pos(X, buf2), Length(X)); Buffer := buf1 + buf2; end; Replace := Buffer; end; Пример использования: procedure TForm1.Button1Click(Sender: TObject); var a: Integer; begin for a := 0 to Memo1.Lines.Count do Memo1.Lines[a] := Replace(Memo1.Lines[a], "Штаны", "-Штаны-"); end;

не ты не понял... мна надо только изменить цвет шрифта. А текст так и останеться... Допустим у меня есть список поределенных слов, и мне надо в тексте все эти слова выделить, изменив их цвет и шрифт...

Редактирование в RichEdit Найти похожие ветки