Como diferenciar letras e numeros por cor no TMemo

[Jorge_S 0]

Bom gente , eu estou tentando diferenciar cor no TMemo EX: quando alguem escrever uma letra no TMemo irar aparecer de uma cor , e quando escrever numeros irá aparecer de outra cor.

 

eu fiz assim um modo muito bem simples :

 

if Memo1.Lines[1] = 'ABCDEFGHIJKLMNOPQRSTUVXYZÇ' then
Memo1.Font.Color:=Clred;

 

if Memo1.Lines[1] = '1234567890' then
Memo1.Font.Color:=Clblue;

 

(tudo errado mas vale)

 

alguem pode me entender? , e me ajudar ?

[bdexterholland 0]

mas como você quer isto? pois se a pessoa digitar tanto letras como números?

 

Uma forma seria você implantar o OnKeyPress:

 

  if UpCase(Key) in ['A'..'Z'] then
   memo1.Color := clMoneyGreen;
 if UpCase(Key) in ['0'..'9'] then
   memo1.Color := clSkyBLue;