Busca de palavra no RichEdit

Question

Ola comunidade, estou desenvolvendo um editor de texto usando o componente RichEdit e j� fiz quase todas as opera��es comuns a todos os editores. So me falta os comandos para localizar e substituir palavras dentro do texto do componente.

Desde j� agradesso aten��o e a coopera��o de todos da comunidade!
Obrigado!!!

Lucas Silva · Answer

tenta usar a fun��o [b:40a7569be1]POS[/b:40a7569be1]...

Marcelo Saviski · Answer

Localizar:[code:1:c8335807ad]RichEdit.Find(�Texto�);[/code:1:c8335807ad]Substituir:[code:1:c8335807ad]RichEdit.Text := StringReplace(RichEdit.Text, �Texto�, �Trocar por�,&#91;rfReplaceAll, rfIgnoreCase&93;);[/code:1:c8335807ad]...

Henry · Answer

A do Marcelo � a que eu uso, mas tem essa aqui tambem, s� pra complementa....

Procedure TForm1.Button1Click (Sender: TObject);
Begin
FindReplace(Edit1.Text,Edit2.Text, Richedit1);
end;
 
Procedure FindReplace (const Enc, subs: String; Var Texto: TRichedit);
Var
i, Posicao: Integer;
Linha: string;
Begin
For i:= 0 to Texto.Lines.count - 1 do
begin
Linha := Texto. Lines[i];
Repeat
Posicao:=Pos(Enc,Linha);
If Posicao > 0 then
Begin
Delete(Linha,Posicao,Length(Enc));
Insert(Subs,Linha,Posicao);
Texto.Lines[i]:=Linha;
end;
until Posicao = 0;
end;
end;

F�rum Busca de palavra no RichEdit #222379