[Resolvido] probleminha com DBMemo

[Marostegan 0]

bom dia pessoal... e lá vai eu aqui com duvidas dinovo...

 

bom, em meu sistema tenho um DBMEmo e tudo o que for digitado nele precisa sair sempre em maiúsculo, eu fiz o seguinte:

 

no evento: OnKeyPress

 

Key:= Upcase(Key);

 

 

até funciona, o único probleminha é que fica assim:

 

- FICOU PENDENTE O INíCIO DO PROCESSO DE PRODUçãO E CHãO DE FáBRICA.

 

sempre que uma letra recebe acentuação ou ç ele fica minúscula. Como resolver isso?

 

obrigado!!

[Maikel Scheid 1]

Salve...

 

Você pode usar como AnsiUpperCase.... ai reconhece letras com acentuação, assim:

 

procedure TForm1.DBMemo2KeyPress(Sender: TObject; var Key: Char);
begin
  Key := AnsiUpperCase(key)[1];
end;

O [1] no final quer dizer que irá pegar apenas 1 caracter da String convertida, ou seja, é converter de String para Char.

 

Att

[Marostegan 0]

poxa amigo, brigadão pela ajuda!!

 

funciono certinho aqui!!!

 

=DD

 

abraçoss!!! http://forum.imasters.com.br/public/style_emoticons/default/natal_noel.gif