Como saber a cor de um caracter dentro de um RichEdit?

24/08/2004

0

Caros amigos,
Alguem sabe como posso obter esta informação. Por exemplo: dentro do RichEdit terei um texto nas cores preto a azul e quero saber quantos caracteres azuis existem no texto.


Alex Maia

Alex Maia

Responder

Posts

24/08/2004

Nildo

deve se fazer algo assim:

var
   Total: Integer;
   nAux: Integer;
begin
   Total := 0;
   for nAux := 0 to Length( richedit1.text ) do
   begin
      Richedit1.selStart := nAux;
      RichEdit1.SelLength := 1;

      if RichEdit1.SelAttributes.Color = clBlue then 
         Inc( Total );
   end;
   ShowMessage( ´Qtdade de caracteres azuis: ´ + IntToStr( Total ) );
end;


Espero que isto ajude!


Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar