Добрый день. Есть база данных, есть DBEdit в котором нужно отоброжать дату (маску ввода), с помощью DateTimePicker я вывожу дату вот код
Код:
procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
tblBase.Edit;
DBEdit9.Text:=DateToStr(DateTimePicker1.Date);
tblBase.Post;
end;
procedure TForm1.DBEdit9Change(Sender: TObject);
begin
DateTimePicker1.Date:=StrToDate(DBEdit9.Text);
end;
Выходит ошибка если даты нет в базе is not a valid date, подскажите как обойти это?