Fórum uppercase #188172
12/10/2003
0
estou fazendo o seguinte....
pegando um campo da tabela e fazendo com que um memo receba esse campo, mas com letra maiuscula...
mais ou menos assim
memo.lines.text:=uppercase(tabelacampo.value);
só que se tiver alguma palavra com algum tipo de acentuação ele não fica maiuscula, ex....
se estiver escrito:
maiúscula, aparece MAIúSCULA
coração, aparce CORAçãO,....
tem alguma outra forma de fazer esse memo receber realmente tudo em maiúscula????
Abraço
pegando um campo da tabela e fazendo com que um memo receba esse campo, mas com letra maiuscula...
mais ou menos assim
memo.lines.text:=uppercase(tabelacampo.value);
só que se tiver alguma palavra com algum tipo de acentuação ele não fica maiuscula, ex....
se estiver escrito:
maiúscula, aparece MAIúSCULA
coração, aparce CORAçãO,....
tem alguma outra forma de fazer esse memo receber realmente tudo em maiúscula????
Abraço
Arc
Curtir tópico
+ 0
Responder
Posts
12/10/2003
Josecarlosjr_atc
Acho que posso te ajudar, faça o seguinte, através do comando case, ex:
Case ch Of
´ç´ : Str := ´Ç´;
´á´ : Str := ´Á´;
´à´ : Str := ´À´;
End;
Faça isso para todos os caracteres que você quer que apareça acentuado em maiúscula ou através da tabela ASCII, que é mais complicado.
Primeiro:
Pegue a ordem do caracter, ex:
Ord(´ç´);
Segundo
Subtraia 32 quando for criar o novo caracter, ex:
Chr(Ord(´ç´)-32);
Terceiro
Se não resolver subtraindo faça adicionando, ok.
Espero ter ajudado
JCJr.
Case ch Of
´ç´ : Str := ´Ç´;
´á´ : Str := ´Á´;
´à´ : Str := ´À´;
End;
Faça isso para todos os caracteres que você quer que apareça acentuado em maiúscula ou através da tabela ASCII, que é mais complicado.
Primeiro:
Pegue a ordem do caracter, ex:
Ord(´ç´);
Segundo
Subtraia 32 quando for criar o novo caracter, ex:
Chr(Ord(´ç´)-32);
Terceiro
Se não resolver subtraindo faça adicionando, ok.
Espero ter ajudado
JCJr.
Responder
Gostei + 0
13/10/2003
Beppe
Ou use AnsiUpperCase.
Ataliba
Ataliba
Responder
Gostei + 0
13/10/2003
Arc
Eu usei o AnsiUpperCase e funcionou , valeu ....
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)