Usando Uppercase em campo memo

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (5)  (1)

Essa dica mostra como simular a propriedade CharCase dos componentes Edit.

Para quem programa em Delphi, uma das primeiras coisas que se faz é conhecer as propriedades dos componentes e como fazer um bom uso delas.

Uma propriedade bastante usada é a propriedade CharCase dos componentes Edit''s. Quando definida como ecUpperCase tudo o que é digitado no edit fica em caixa alta.

Mas como fazer com os componentes do tipo TMemo? Eles não Têm essa propriedade!

Você pode resolver esse problema usando no evento OnKeyPress do componente a seguinte linha de código:

Key := UpCase( Key );

Mas isso só resolve parte do problema. O que fazer com os caracteres acentuados? Essa função não trata esses casos! Para isso você pode melhorar esse código, trocando o UpCase() pelo AnsiUpperCase(), ficando Assim:

Key := AnsiUpperCase( Key )[1];

Esta opção resolve plenamente o problema!
Você pode se perguntar: Porquê o conjunto [1] no final da linha? A resposta é: A função AnsiUpperCase() retorna uma cadeia de caracteres String e a variável Key é um Char, então devemos converter a String em Char para evitar erro na hora de compilar.

Espero ter ajudado com essa dica, obrigado!
 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?