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.
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
Curtir tópico
+ 0
Responder
Posts
24/08/2004
Nildo
deve se fazer algo assim:
Espero que isto ajude!
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
Clique aqui para fazer login e interagir na Comunidade :)