Fórum Ler conteúdo no Richedit #180987

Estude as dicas abaixo:

113 - Posicionando o cursor numa linha de um Memo ou RichEdit
Para posicionar o cursor em uma linha de um Memo ou RichEdit, deve-se utilizar o seguinte:

With Memo1 do
SelStart := Perform(EM_LINEINDEX, Linha, 0);

723 - Pesquisa de um string mudando o texto

--------------------------------------------------------------------------------

Coloque no OnChange do Edit1 o Código Abaixo

--------------------------------------------------------------------------------

var
i : integer;
aux: integer;
begin
aux:=1;
for i:=0 to Length(RichEdit1.Text) do
begin
if (Copy(RichEdit1.Text,i+1,length(Edit1.Text)) =
Edit1.Text) then
begin
RichEdit1.SelStart := aux;
RichEdit1.SelLength := i-aux+1;
RichEdit1.SelAttributes.Color := ClBlack;
RichEdit1.SelAttributes.Style := [];
RichEdit1.SelStart := i;
RichEdit1.SelLength := Length(Edit1.text);
RichEdit1.SelAttributes.Color := ClRed;
RichEdit1.SelAttributes.Style := [fsBold];
aux := i + length(Edit1.Text);
end;
end;
RichEdit1.SelStart := aux;
RichEdit1.SelLength := i-aux+1;
RichEdit1.SelAttributes.Color := ClBlack;
RichEdit1.SelAttributes.Style := [];
end;

--------------------------------------------------------------------------------

A dica acima foi enviada por Wendel Bezerra Silva

Para usar vc deve colocar um Edit e um Richedit num form e colocar algum texto no richedit!

Quando se digita alguma palavra no edit se ocorrer alguma coincidencia no richedit esse texto ficará em vermelho!

Bem legal essa dica!

Obs: Se o conteúdo do Richedit for excessivo o processo fica um pouco demorado!