ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Como evitar duas virgulas em um dbedit [resolvido]

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
edifrancl
Aprendiz
Aprendiz


Registrado: Quarta-Feira, 12 de Setembro de 2012
Mensagens: 173

MensagemEnviada: Dom Abr 13, 2014 9:20 pm    Assunto: Como evitar duas virgulas em um dbedit [resolvido] Responder com Citação

Boa noite galera! Uso ibdataset com dbedits e gostaria de saber como evitar que o usuario digite duas virgulas num campo de valor numerico! Aproveitando, como mudar a mensagem de erro que aparece quando isso acontece? A mensagem eh em ingles e dessa forma nao fica legal!

Uso IbDataset, Firebird 2.1 e D2010
_________________
"O coração do homem pode fazer planos, mas a resposta certa dos lábios vem do Senhor!" Pv. 16:1 Deus é fiel!


Editado pela última vez por edifrancl em Sáb Abr 19, 2014 5:50 pm, num total de 1 vez
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
joemil
Moderador
Moderador


Registrado: Quinta-Feira, 25 de Março de 2004
Mensagens: 9100
Localização: Sinop-MT

MensagemEnviada: Seg Abr 14, 2014 8:13 am    Assunto: Responder com Citação

tente algo assim:

no onKeyPress:

Código:
if Key = ',' then
begin
   if Pos(',', Edit1.Text) > 0 then
      Key := #0;
end;

_________________
<b>SEMPRE COLOQUE [RESOLVIDO] NO SEU POST</b>
Enviar imagens: http://tinypic.com/
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
edifrancl
Aprendiz
Aprendiz


Registrado: Quarta-Feira, 12 de Setembro de 2012
Mensagens: 173

MensagemEnviada: Sex Abr 18, 2014 7:48 am    Assunto: Responder com Citação

joemil escreveu:
tente algo assim:

no onKeyPress:

Código:
if Key = ',' then
begin
   if Pos(',', Edit1.Text) > 0 then
      Key := #0;
end;


Funcionou direitinho! Obrigado! Mas quanto a tratar as excecoes do banco, voce sabe como mudar as mensagens que aparecem de ingles para portugues?
_________________
"O coração do homem pode fazer planos, mas a resposta certa dos lábios vem do Senhor!" Pv. 16:1 Deus é fiel!
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB