RichEdit замена текста

← →
Ell © (2006-03-16 19:58) [0]

Нужно заменить заданную строку другой по всему тексту. Яндекс по сабжу даёт много ссылок с одним примером:

function Search_And_Replace(RichEdit: TRichEdit;
SearchText, ReplaceText: string): Boolean;
var
startpos, Position, endpos: integer;
begin
startpos := 0;
with RichEdit do
begin
endpos := Length(RichEdit.Text);
Lines.BeginUpdate;
while FindText(SearchText, startpos, endpos, [stMatchCase])<>-1 do
begin
endpos := Length(RichEdit.Text) - startpos;
Position := FindText(SearchText, startpos, endpos, [stMatchCase]);
Inc(startpos, Length(SearchText));
SetFocus;
SelStart := Position;
SelLength := Length(SearchText);
richedit.clearselection;
SelText := ReplaceText;
end;
Lines.EndUpdate;
end;
end;

Однако компилятор, устанавливая курсор перед <>-1, выдаёт ошибку: Incompatible types: "TSearchType" and "TRichSearchType"

Не подскажете, что неправильно?

← →
Ell © (2006-03-17 22:45) [1]

Сложный вопрос? - тогда разве не интересно разобраться?
Или слишком простой - тогда влом ответить?

← →
Virgo_Style © (2006-03-17 23:21) [2]

кажется, что-то "затмевает" объявление stMatchCase, укажи явно: ComCtrls.stMatchCase

← →
Ell © (2006-03-18 01:49) [3]

Жаль, что в RichEdit нет функции "Replace"...

Может, кто подкинет процедурку замены строки?

RichEdit замена текста Найти похожие ветки