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 

Componente DBDateEdit, validar data?

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


Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618
MensagemEnviada: Seg Mai 06, 2013 4:31 pm    Assunto: Componente DBDateEdit, validar data? Responder com Citação
Pessoal tenho aqui um componente DBDateEdit, mais não consigo validar uma data

Por exemplo

Se eu digitar assim no DBDateEdit 99/99/9999 o retorno no onExit deste componente é 0 (zero), pois bem ai posso tratar assim no onexit

Código:
if DBDateEdit.date = 0 then
  raise('data invalida')


Mais tem um problema, este componente ai também pode aceitar data vazia e ai não da certo esta verificação, porque vazio pra ele também é zero.

Ja tentei diretamente no field do campo, mais é a mesma coisa, ou seja se digitar 99/99/9999 ou deixar em branco o campo o retorno sempre é emptystr.

exemplo
Código:
if not datasource.dataset.fieldbyname('data').asstirng = emptystr then
 //ai não entra no validador

_________________
Jogo seu smartphone? Acesse o link e confira.
https://play.google.com/store/apps/details?id=br.com.couldsys.rockdrum
https://play.google.com/store/apps/details?id=br.com.couldsys.drumsetfree
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
marcieldeg
Colaborador
Colaborador


Registrado: Terça-Feira, 5 de Abril de 2011
Mensagens: 1054
Localização: Vitória - ES
MensagemEnviada: Seg Mai 06, 2013 5:44 pm    Assunto: Responder com Citação
Esse componente é de algum pacote, tipo DevExpress?
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
AnOnImUs.Info
Colaborador
Colaborador


Registrado: Quinta-Feira, 23 de Agosto de 2007
Mensagens: 1119
Localização: Goiânia - GO
MensagemEnviada: Seg Mai 06, 2013 5:44 pm    Assunto: Re: Componente DBDateEdit, validar data? Responder com Citação
Código:

if datasource.dataset.fieldbyname('data').AsDateTime = 0 then


Tente assim.
_________________
Reter o conhecimento é promover a ignorância !
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
adriano_servitec
Colaborador
Colaborador


Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618
MensagemEnviada: Seg Mai 06, 2013 5:51 pm    Assunto: Responder com Citação
No evento onSetText este codigo que funciona corretamente no DBEdit nem passa
Código:
[16:59:22] ADRIANO SERVITEC: if Trim(Text) = DateSeparator + '  ' + DateSeparator then
    Sender.Clear
  else
  begin
    TRY
        StrToDate(Text);
    EXCEPT
        MessageBox(Self.Handle,'Data Inválida !!','Atenção',mb_Ok or MB_ICONEXCLAMATION);
        Abort;
    END;
    Sender.AsString := Text;
  end;

_________________
Jogo seu smartphone? Acesse o link e confira.
https://play.google.com/store/apps/details?id=br.com.couldsys.rockdrum
https://play.google.com/store/apps/details?id=br.com.couldsys.drumsetfree
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
adriano_servitec
Colaborador
Colaborador


Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618
MensagemEnviada: Seg Mai 06, 2013 5:52 pm    Assunto: Responder com Citação
marcieldeg escreveu:
Esse componente é de algum pacote, tipo DevExpress?
Não é do RXLib, obrigado
_________________
Jogo seu smartphone? Acesse o link e confira.
https://play.google.com/store/apps/details?id=br.com.couldsys.rockdrum
https://play.google.com/store/apps/details?id=br.com.couldsys.drumsetfree
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
adriano_servitec
Colaborador
Colaborador


Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618
MensagemEnviada: Seg Mai 06, 2013 5:58 pm    Assunto: Re: Componente DBDateEdit, validar data? Responder com Citação
AnOnImUs.Info escreveu:
Código:

if datasource.dataset.fieldbyname('data').AsDateTime = 0 then


Tente assim.
Mesma coisa amigo, não da certo
Obrigado
_________________
Jogo seu smartphone? Acesse o link e confira.
https://play.google.com/store/apps/details?id=br.com.couldsys.rockdrum
https://play.google.com/store/apps/details?id=br.com.couldsys.drumsetfree
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
adriano_servitec
Colaborador
Colaborador


Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618
MensagemEnviada: Ter Mai 07, 2013 10:07 am    Assunto: Responder com Citação
Sobe...
_________________
Jogo seu smartphone? Acesse o link e confira.
https://play.google.com/store/apps/details?id=br.com.couldsys.rockdrum
https://play.google.com/store/apps/details?id=br.com.couldsys.drumsetfree
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
adriano_servitec
Colaborador
Colaborador


Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618
MensagemEnviada: Ter Mai 07, 2013 10:11 am    Assunto: Responder com Citação
Somente avisando, meu delpghi é o 5 não tenho a classe dateUtils, caso alguem for postar algo que utilize metodos desta classe.

Obrigado.
_________________
Jogo seu smartphone? Acesse o link e confira.
https://play.google.com/store/apps/details?id=br.com.couldsys.rockdrum
https://play.google.com/store/apps/details?id=br.com.couldsys.drumsetfree
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
mrjorio
Novato
Novato


Registrado: Segunda-Feira, 24 de Setembro de 2012
Mensagens: 85
MensagemEnviada: Sex Mai 10, 2013 12:48 am    Assunto: Responder com Citação
adriano_servitec escreveu:
Somente avisando, meu delpghi é o 5 não tenho a classe dateUtils, caso alguem for postar algo que utilize metodos desta classe.

Obrigado.


Adriano,

Tenta colocar nil ou null

Código:

data := nil;

ou

data := null;
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