|
#1
|
|||
|
|||
DateTimePicker
Добрый день. Есть база данных, есть 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; |
#2
|
|||
|
|||
Например, минуя визуальный контрол:
Код:
procedure TForm1.DateTimePicker1Change(Sender: TObject); begin tblBase.Edit; tblBase.FieldByName('MyDate').AsTDateTime := DateTimePicker1.Date; tblBase.Post; end; |
#3
|
|||
|
|||
Спасибо. Но ошибку выдал(((
Undeclared identifier: 'AsTDateTime' |
#4
|
||||
|
||||
AsDateTime
Поживу - увижу, Доживу - узнаю, Выживу - учту. [P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
|
#5
|
|||
|
|||
угу пасиб...сама догадалась )))
|