Letra maiúscula no Grid
COMO FAÇO PARA Q TODOS OS DADOS DE UM GRID FIQUE COM LETRA MAIUSCULA (MESMO Q DIGITADO EM LETRA MINUSCULA)
[i:b039a2928d]Título editado. Favor digitar em minúsculas. (marcelo.c - Moderador)[/i:b039a2928d]
[i:b039a2928d]Título editado. Favor digitar em minúsculas. (marcelo.c - Moderador)[/i:b039a2928d]
Rogsystem
Curtidas 0
Respostas
Sgubert
26/04/2004
Olá amigo.
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
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
Lucas Silva
26/04/2004
no evento onKeyPress do grid....
procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char); begin Key := UpCase(Key); end;
GOSTEI 0
Sgubert
26/04/2004
Olá Novamente!
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
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
Sgubert
26/04/2004
Tente assim: (ta funcionamdo bem, mas da pra melhorar se vc quiser)
<? 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;?>
<? 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
Lucas Silva
26/04/2004
vc´s podem usar o [b:9081fbc45d]AnsiUpperCase[/b:9081fbc45d].
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.
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
Nildo
26/04/2004
As regras de conduta do fórum dizem claramente que você não pode postar mensagens com título em letras maiúsculas. Por favor, releia as regras antes de prosseguir com qualquer outra mensagem.
GOSTEI 0