DBEdit- Super Fácil
06/02/2003
0
E aíi Galera do Fórum
Como faço para um DBedit e o DBGrid só aceitar letras maíusculas e sem acentuação.
Eu COLOquei ISTO NO EVENTO KeyPress do edit
if (Key in [´a´..´z´]) or (´A´..´Z´) then
Key := Key
Else begin
Key := Chr(0) ;
end ;
Depois passei o tipo CHARCase do editi (aba de propriedades ) para ecUpperCase, que já é normal.
Mas deu erro na primeira linha de código
Alguém tem uma dica melhor
Abraços Fabiano Miranda
Como faço para um DBedit e o DBGrid só aceitar letras maíusculas e sem acentuação.
Eu COLOquei ISTO NO EVENTO KeyPress do edit
if (Key in [´a´..´z´]) or (´A´..´Z´) then
Key := Key
Else begin
Key := Chr(0) ;
end ;
Depois passei o tipo CHARCase do editi (aba de propriedades ) para ecUpperCase, que já é normal.
Mas deu erro na primeira linha de código
Alguém tem uma dica melhor
Abraços Fabiano Miranda
Anonymous
Curtir tópico
+ 0
Responder
Posts
06/02/2003
Dor_poa
Fabiano, faltou fechar os parentes....
vc. fez assim..:
if (Key in [´a´..´z´]) or (´A´..´Z´) then
Key := Key
Else begin
Key := Chr(0) ;
end ;
E E ASSIM
if (Key in [´a´..´z´]) or (´A´..´Z´)) then
Key := Key
Else begin
Key := Chr(0) ;
mas se continuar dando problema faz assim:
if (Key in [´a´..´z´]) or ( Key in (´A´..´Z´) ) then
Key := Key
Else begin
Key := Chr(0) ;
vc. fez assim..:
if (Key in [´a´..´z´]) or (´A´..´Z´) then
Key := Key
Else begin
Key := Chr(0) ;
end ;
E E ASSIM
if (Key in [´a´..´z´]) or (´A´..´Z´)) then
Key := Key
Else begin
Key := Chr(0) ;
mas se continuar dando problema faz assim:
if (Key in [´a´..´z´]) or ( Key in (´A´..´Z´) ) then
Key := Key
Else begin
Key := Chr(0) ;
Responder
Clique aqui para fazer login e interagir na Comunidade :)