[Sveta22]

Добрый день. Есть база данных, есть 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, подскажите как обойти это?

[lmikle]

Например, минуя визуальный контрол:

Код:

procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
 tblBase.Edit;
 tblBase.FieldByName('MyDate').AsTDateTime := DateTimePicker1.Date;
 tblBase.Post;
end;

[Sveta22]

Спасибо. Но ошибку выдал(((
Undeclared identifier: 'AsTDateTime'

[Yurk@]

AsDateTime

[Sveta22]

угу пасиб...сама догадалась )))