Busca de palavra no RichEdit

Delphi

25/03/2004

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!!!


Benjamim Júnior

Benjamim Júnior

Curtidas 0

Respostas

Lucas Silva

Lucas Silva

25/03/2004

tenta usar a função [b:40a7569be1]POS[/b:40a7569be1]


GOSTEI 0
Marcelo Saviski

Marcelo Saviski

25/03/2004

Localizar:
RichEdit.Find(´Texto´);


Substituir:
RichEdit.Text := StringReplace(RichEdit.Text, ´Texto´, ´Trocar por´,[rfReplaceAll, rfIgnoreCase]);



GOSTEI 0
Henry

Henry

25/03/2004

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;



GOSTEI 0
POSTAR