|
Вопрос # 4 036/ вопрос открыт / |
|
Здравствуйте!Доброго времени суток! вопрос такой:
Как найти текст в RichEdit и заменить его?
 |
Вопрос задал: RazyilleR (статус: Посетитель)
Вопрос отправлен: 15 апреля 2010, 01:16
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 3; последнее сообщение — 15 апреля 2010, 01:30; участников в обсуждении: 2.
|
Ximer (статус: Посетитель), 15 апреля 2010, 01:27 [#1]:
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;
procedure TForm1.Button1Click(Sender: TObject);
begin
Search_And_Replace(Richedit1, 'OldText', 'NewText');
end;
|
|
|
RazyilleR (статус: Посетитель), 15 апреля 2010, 01:29 [#2]:
спс, а такую же функцию для RichView можно использовать?
|
|
|
RazyilleR (статус: Посетитель), 15 апреля 2010, 01:30 [#3]:
сори компоненты перепутал
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
