� / / � is not a valid date and time

Question

Bom dia, pessoal!!!Estou com esse erro (�  /  /  � is not a valid date and time) em minha aplica��o. Quando a pessoa n�o digita nenhum valor no campo Data, ele retorna esse erro na tela. Como fa�o par...

Sremulador · Answer

com o apllicationevent voc� trata qualquer evento em sua aplica��o......

Ariovaldo · Answer

Se o Tipo do Campo for Timestamp, use um DBEdit e na Propriedade editmask do Field Coloque dd/mm/yyyy e na propriedade DisplayField coloque #//
Declare esta func�o

function CheckDate(Sender: TField; Text: String): Boolean;
begin
Result := False;
if (Text = � / / �) or (Text = � / / �) then begin
Sender.Clear;
Result := True;
end
else begin
try
Sender.AsString := Text;
Result := True;
except
messagedlg(�Data Inv�lida !!!�, mtInformation,[mbOk],0 );
if Screen.Cursor = crHourGlass then begin
Screen.Cursor := crDefault;
end;
end;
end;
end;

e no evento onset text coloque

if not ( CheckDate(Sender,Text) ) then begin
Abort;
end;

Cristianojedi · Answer

Ok.Muito obrigado sremulador!!!Cristiano M�rio...

Cristianojedi · Answer

Se o campo for DATETIME funciona tamb�m, Ariovaldo???Cristiano...

Ariovaldo · Answer

Funciona sim, sem problemas...

Cristianojedi · Answer

Muito obrigado Ariovaldo!!!Abra�o!!!Cristiano M�rio...

F�rum � / / � is not a valid date and time #276490