Помогите с кодом пожалуйста
Вот есть код:
Код:
procedure TForm1.ButtonClick(Sender: TObject);
var
data: TDate;
begin
data := EncodeDate(2012, 09, 07);
ADOTable1.Filter := '[Имя поля с датой]>=#'+DateToStr(data)+'# and [Имя поля с датой]<#'+DateToStr(data+1)+'#';
ADOTable1.Filtered := True;
end;
он работает только если я в пишу нужную дату вот сюда data := EncodeDate(2012, 09, 07); а как сделать так чтобы я мог вводить дату через Edit1 на Form1?