Re: [delphi-br] Impedir Caracteres Indesejados
tenho uma função que uso para validar numeros
Procedure ValidaKey (Const Sender :TObject; var Key :Char; Tipo :Integer);
// Valida Key em Edits
Begin
if not (Key in ['0'..'9', '.', ',', '+', '-', #8, #13]) then Key := #0;
if Key in [',','.'] then
If (Tipo = 1) OR (Tipo = 3) then // 0- Integer, 1- Currency e Float
positivo
Key:= DecimalSeparator// 2- Integer negativo e positivo, 3 -
Float negativo e positivo
Else
Key:= #0;
if Key = DecimalSeparator then
if pos(Key,TEdit(Sender).Text) 0 then Key := #0;
if Key in ['+','-'] then
If Tipo 2 then
Key := #0
else if pos(Key,TEdit(Sender).Text) 0 then Key := #0
else if Length(TEdit(Sender).Text) 0 then Key := #0;
end;
e tenho uma rotina que valida campos texto.
Function CaracterValido( sTexto, sCaracteres :String ) :Boolean; // Verifica
se só existe caracteres válidos no texto
Var
X :Integer;
Begin
Result:= True;
For X:= 1 To Length( sTexto ) do
If Pos( sTexto[X], sCaracteres ) = 0 then
Begin
Result:= False;
Break;
end;
end;
chamando assim:
If not CaracterValido( Edit1.text, 'ABCDEFGHIJKLMNOPQRSTUWVXYZ' ) then
Application.MessageBox('Campo possui caracteres inválidos,
verifique','APLICAÇÃO',
mb_ok+mb_iconExclamation)
Cleiton [EMAIL PROTECTED] escreveu:
Olá pessoal...
Como fazer para impedir que usuário digite números em um campo que deveria
aceitar apenas letras e como impedir que o usuário digite letras em um campo
que deveria aceitar apenas números?
abraços
Cleiton
--
Esta mensagem foi verificada pelo sistema de antivírus e
acredita-se estar livre de perigo.
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Yahoo! Grupos, um serviço oferecido por:PUBLICIDADE
-
Links do Yahoo! Grupos
Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do
Yahoo!.
-
Yahoo! doce lar. Faça do Yahoo! sua homepage.
-
Yahoo! doce lar. Faça do Yahoo! sua homepage.
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] Impedir Caracteres Indesejados
Oi Marcio... Deu certinho a função que você me passou pra evitar que o cliente digite caracteres não permitidos. Valeu Muito obrigado - Original Message - From: Marcio Cruz [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Monday, January 30, 2006 2:57 PM Subject: Re: [delphi-br] Impedir Caracteres Indesejados OnKeyPress if not (Key in ['0'..'9', #8]) then Key := #0; Cleiton escreveu: Olá pessoal... Como fazer para impedir que usuário digite números em um campo que deveria aceitar apenas letras e como impedir que o usuário digite letras em um campo que deveria aceitar apenas números? abraços Cleiton -- Esta mensagem foi verificada pelo sistema de antivírus e acredita-se estar livre de perigo. -- -- Esta mensagem foi verificada pelo sistema de antivírus e acredita-se estar livre de perigo. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Impedir Caracteres Indesejados
Olá pessoal... Como fazer para impedir que usuário digite números em um campo que deveria aceitar apenas letras e como impedir que o usuário digite letras em um campo que deveria aceitar apenas números? abraços Cleiton -- Esta mensagem foi verificada pelo sistema de antivírus e acredita-se estar livre de perigo. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Impedir Caracteres Indesejados
OnKeyPress if not (Key in ['0'..'9', #8]) then Key := #0; Cleiton escreveu: Olá pessoal... Como fazer para impedir que usuário digite números em um campo que deveria aceitar apenas letras e como impedir que o usuário digite letras em um campo que deveria aceitar apenas números? abraços Cleiton -- Esta mensagem foi verificada pelo sistema de antivírus e acredita-se estar livre de perigo. -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
