memo - simples

26/01/2006

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


Fernando_ramos

Respostas

26/01/2006

Tnaires

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&93; then
    begin
      Caractere := Maiusculas&91;i&93;;
      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 Citar

26/01/2006

Renato.pavan

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



Responder Citar

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 Citar