DBEdit- Super Fácil
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
Curtidas 0
Respostas
Dor_poa
06/02/2003
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) ;
GOSTEI 0