Реализация поиска и замены текста

@ЕленаБалакирева · Регистрация: 22.04.2012

Author24 — интернет-сервис помощи студентам

Использую компонент TRichEdit, для поиска и замены использую TFindDialog, TReplaceDialog.

Нашла в интернете такую процедуру:

Delphi

procedure TForm1.FindDialog1Find(Sender: TObject);
begin
 if pos(FindDialog1.FindText, RichEdit1.Text) <> 0 then
begin
RichEdit1.HideSelection := False;
RichEdit1.SelStart := pos(FindDialog1.FindText, RichEdit1.Text)-1;
RichEdit1.SelLength := Length(FindDialog1.FindText);
end else MessageDlg ('Строка ' + FindDialog1.FindText + ' не найдена!', mtConfirmation, [mbYes], 0);
 
end;

Она ищет текст, но находит только первое слово, а дальше не идёт.

И не знаю, как написать процедуру аналогичную для Замены текста.

Напишите, пожалуйста, подробно - я такого никогда не делала. Может, там какие-то свойства настроить надо?
Заранее спасибо.

@volvo · 01.12.2012, 13:14

ЕленаБалакирева, в онлайн-хелпе есть прекрасный пример обработки OnFind: здесь.

То же самое касается и OnReplace в TReplaceDialog: вот тут

@volvo Супер-модератор 32836 / 21173 / 8148 Регистрация: 22.10.2011 Сообщений: 36,432 Записей в блоге: 8
	01.12.2012, 13:14	2
	ЕленаБалакирева, в онлайн-хелпе есть прекрасный пример обработки OnFind: здесь. То же самое касается и OnReplace в TReplaceDialog: вот тут 0