Pesquisa em campo MEMO

Pesquisa de um string mudando o texto SERVE PRO MEMO TAMBEM


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


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!