veja ai mais uma dica do dtdelphi 850, veja se funciona.
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!
----- Original Message -----
From: conexaoi
To: delphi-br@yahoogrupos.com.br
Sent: Saturday, August 19, 2006 5:47 PM
Subject: [delphi-br] Encontrar Palavra em DBRichedit
Olá amigos, dá pra me dá uma ajuda! se entender....
Como faço para localizar uma palavra já definida (ex: word,
excel, calculadora...) em um DBRichedit, eu quero fazer mais ou menos
assim.
If encontrar a palavra "word" then
timer1...etc...
end;
Cara se deu para enterder mé dá uma luz para eu continuar?
------------------------------------------------------------------------------
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.405 / Virus Database: 268.11.3/423 - Release Date: 18/08/2006
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
