Mensagem para data
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
Curtidas 0
Respostas
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:
uma saida imediata :
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;
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;
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;
GOSTEI 0