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

24/08/2004

2

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.


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

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários. Para saber mais sobre o uso de cookies,
consulte nossa política de privacidade. Ao continuar navegando em nosso site, você concorda com a nossa política.

Aceitar