Скачать: CL | DM;

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"...

---

← →
Ell ©   (2006-03-18 02:10) [4]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.026 c