Mensagem para data

Delphi

02/08/2010

Tenho um formulario com uma edit para date de entrega e outra para data atual, ao salvar o pedido quero que ele verifique se o pedido esta com data de entrega ou produto. Porem quando nao coloco data ele da um erro:   Project OC.ex exception class EConvertError with message '" / / " is not a valid date'   Estou usando uma mascara de data entao a edit ja fica automaticamente com as barras. O codigo usado é este:  
if DBEditdataentrega.text = emptystr then
begin
Application.Messagebox('O campo data de entrega deve ser informado','Atenção', MB_ICONWARNING +MB_OK);
DBEditDataEntrega.SetFocus;
Exit;
end;
Daniel

Daniel

Curtidas 0

Respostas

Marco Salles

Marco Salles

02/08/2010

Tenho um formulario com uma edit para date de entrega e outra para data atual, ao salvar o pedido quero que ele verifique se o pedido esta com data de entrega ou produto. Porem quando nao coloco data ele da um erro:   Project OC.ex exception class EConvertError with message '" / / " is not a valid date'   Estou usando uma mascara de data entao a edit ja fica automaticamente com as barras. O codigo usado é este:  
if DBEditdataentrega.text = emptystr then
begin
Application.Messagebox('O campo data de entrega deve ser informado','Atenção', MB_ICONWARNING +MB_OK);
DBEditDataEntrega.SetFocus;
Exit;
end;
uma saida imediata :  
if DBEditdataentrega.text = '  /  /    ' then
begin
Application.Messagebox('O campo data de entrega deve ser informado','Atenção', MB_ICONWARNING +MB_OK);
DBEditDataEntrega.SetFocus;
Exit;
end;
  ps:: Melhor usar o ShortDateFormat   Outra saida , coloque a mascara com o final zero e teste com o Vazio  
if DBEditdataentrega.text = ' ' then 
begin
Application.Messagebox('O campo data de entrega deve ser informado','Atenção', MB_ICONWARNING +MB_OK);
DBEditDataEntrega.SetFocus;
Exit;
end;
  Acho que resolve        
GOSTEI 0
POSTAR