Array
(
)

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

Alex Maia
   - 24 ago 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.


Nildo
   - 24 ago 2004

deve se fazer algo assim:

#Código


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!