memo - simples
como deixar o que esta sendo digitado em um memo em maiusculo?
Fernando_ramos
Curtidas 0
Respostas
Tnaires
26/01/2006
Olá
Vc pode usar esta função:
Vc coloca essa função no evento OnKeyPress e passa o valor de Char como parâmetro pra função.
Abraços
Vc pode usar esta função:
function ConverterEmMaiusculo(Caractere: char): char; var Minusculas, Maiusculas: string; i: integer; begin Maiusculas := ´ABCDEFGHIJKLMNOPQRSTUVWXYZÁÀÃÂÄÉÈÊËÍÌÎÏÓÒÕÔÖÚÙÛÜÇ´; Minusculas := AnsiLowerCase(Maiusculas); for i := 1 to Length(Minusculas) do if Caractere = Minusculas[i] then begin Caractere := Maiusculas[i]; Break; end; Result := Caractere; end;
Vc coloca essa função no evento OnKeyPress e passa o valor de Char como parâmetro pra função.
Abraços
GOSTEI 0
Renato.pavan
26/01/2006
Digite o seguinte código no envento OnKeyPress do memo:
Key := UpCase(Key);
GOSTEI 0
Tnaires
26/01/2006
O problema do UpCase é q ele não converte caracteres fora do intervalo a..z (ou seja, caracteres acentuados não são convertidos).
GOSTEI 0