Array
(
)

memo - simples

Fernando_ramos
   - 26 jan 2006

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


Tnaires
   - 26 jan 2006

Olá
Vc pode usar esta função:
#Código

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


Renato.pavan
   - 26 jan 2006

Digite o seguinte código no envento OnKeyPress do memo:
#Código

Key := UpCase(Key);



Tnaires
   - 26 jan 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).