Фильтрация по дате

[ДневнойДоширак]

Помогите с кодом пожалуйста

Вот есть код:

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?

[digitalis]

Да очень просто:

 w1,w2,w3,n: word ;
  stro,stro1 : string ;
   .......
  stro := Edit1.Text ;
  n := Pos(',',stro) ;
  stro1 := Copy(stro,1,n-1) ;
  w1 := StrToInt (stro1) ;
  stro := Copy(stro,n+1,32) ;
  n := Pos(',',stro) ;
  stro1 := Copy(stro,1,n-1) ;
  w2 := StrToInt (stro1) ;
  stro := Copy(stro,n+1,32) ;
  w3 := StrToInt (stro) ;
  data := EncodeDate(w1,w2,w3);

Вводить в Edit надо в виде: 2012,06,24 без пробелов.
Кто сможет проще - пусть напишет проще.

[Аватар]

Кто сможет проще - пусть напишет проще.

Проще использовать DateTimePicker для вода даты ))

И Filter с датами c подвохами. Лучше событие OnFilterRecord. А еще лучше ADOQuery вместо ADOTable и фильтровать запросом

[newerow1989]

Сообщение от ДневнойДоширак

как сделать так чтобы я мог вводить дату через Edit1 на Form1

StrToDate поможет