Fórum Letra maiúscula no Grid #227990
26/04/2004
0
[i:b039a2928d]Título editado. Favor digitar em minúsculas. (marcelo.c - Moderador)[/i:b039a2928d]
Rogsystem
Curtir tópico
+ 0Posts
26/04/2004
Sgubert
Tive esse ´Problema´ tb. Não sei se posso mencionar outro forum aqui, mas lá vai.
Vai no fórum do activedelphi e faz uma pesquisa com ´Letra maiuscula´, eu postei lá minha dúvida e obtive varias resposats muito úteis.
O meu probelam era que caracteres especiais como acentos e cedilha, continuavam em minusculo no Memo e no grid, dai resolvi o probelam com um funcçao que me postaram lá no outro forum....
Espero que ajude...
[]´s
Samuel
Gostei + 0
26/04/2004
Lucas Silva
procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char); begin Key := UpCase(Key); end;
Gostei + 0
26/04/2004
Sgubert
A Ideia que o colega postou já avisod e antemão que não irá funcionar.
Faça dessa forma que ele falou e digite a palavra ambarcação ela irá ficar dessa forma: EMBARCAçãO.
vou procurar e ja escrevo o codigo para vcs....
[]´s
Samuel
Gostei + 0
26/04/2004
Sgubert
<? procedure TForm1.DBMemo1KeyPress(Sender: TObject; var Key: Char);
begin
key:=upercase(key);
end;
function upercase(Str:char): char;
Const
ComAcento = ´àâêôûãõáéíóúçü´;
SemAcento = ´ÀÂÊÔÛÃÕÁÉÍÓÚÇÜ´;
Var
x : Integer;
Begin
if Pos(Str,ComAcento)&&0 Then
Result := SemAcento[Pos(Str,ComAcento)]
else
Result := UpCase(Str);
end;?>
Gostei + 0
26/04/2004
Lucas Silva
O problema é que ele converte uma string, e não uma Char.
Deve ter algum evento do grid, que dê pra fazer esta conversão usando a função acima.
Gostei + 0
26/04/2004
Nildo
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)