UpperCase para caracteres acentuados

Delphi

26/11/2003

Pessoal,

Alguém sabe como fazer para transformar os caracteres texto acentuados em caracteres maiúsculos via código? UpperCase não funciona nestes caracteres...

Exemplo:

ã muda para Ã
à muda para À
õ muda para Õ
é muda para É

E assim por diante.

wbb


Wbb

Wbb

Curtidas 0

Respostas

Arc

Arc

26/11/2003

passando as letras de um edit para outro:
1) valor de edit1 = ´ á â ã ´
2) edit2.text:=Ansiuppercase(edit1.text);
3) Valor novo de edit1 = ´ Á Â Ã ´


GOSTEI 0
Wbb

Wbb

26/11/2003

Obrigado pela Arc.
Realmente funcionou. Só não há necessidade de fazer este jogo de Edits que você indicou. Pode fazer direto:

Edit1.Text := AnsiUpperCase(Edit1.Text);

Valeu!
wbb


GOSTEI 0
POSTAR