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

24/08/2004

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

Respostas

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 Citar