memo - simples

Delphi

26/01/2006

como deixar o que esta sendo digitado em um memo em maiusculo?


Fernando_ramos

Fernando_ramos

Curtidas 0

Respostas

Tnaires

Tnaires

26/01/2006

Olá
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

Renato.pavan

26/01/2006

Digite o seguinte código no envento OnKeyPress do memo:
Key := UpCase(Key);



GOSTEI 0
Tnaires

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
POSTAR