memo - simples
26/01/2006
0
como deixar o que esta sendo digitado em um memo em maiusculo?
Fernando_ramos
Curtir tópico
+ 0
Responder
Posts
26/01/2006
Tnaires
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
Responder
26/01/2006
Renato.pavan
Digite o seguinte código no envento OnKeyPress do memo:
Key := UpCase(Key);
Responder
26/01/2006
Tnaires
O problema do UpCase é q ele não converte caracteres fora do intervalo a..z (ou seja, caracteres acentuados não são convertidos).
Responder
Clique aqui para fazer login e interagir na Comunidade :)
