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

[AlexSol.BY]

Имеется MaskEdit с заданной маской типа __.__.____ и база данных созданная в Acces с имеющей поле типа Дата. Подскажите как выйти из это положения. Пробывал в MaskEdit1Change:

if(MaskEdit2->Text != " . . ") ADOTable1->Filtered=true;
else
ADOTable1->Filtered=false;
ADOTable1->Filter=" Дата >='"+StrToDate(MaskEdit2->Text)+"'";

код вроде работает но фильтр останавливается после ввода 2 цифры, а при очистке всей строки выдает ошубку.

[Grag]

Лично я при использовании фильтрации выполняю шаги в следующей последовательности:
1. Filtered:=false;
2. Filter:='xxxxxxxxxxxxxxx';
3. Filtered:=true;

[AlexSol.BY]

Это не причина

[Grag]

Полный код покажи, как ты выполняешь фильтрацию данных в таблице...

[AlexSol.BY]

Это и есть весть код. К примеру с работой с текстовыми полями все прекраснно работает

if(Edit1->Text.Length()>0)
  ADOTable1->Filtered=true;
else
  ADOTable1->Filtered=false;
  ADOTable1->Filter=" Имя >='"+Edit1->Text+"'";

с датой проблема :-(

Проблему решил переводом поля в текс, зато потерял коррекную сортировку по дате, а что делать.....

[Maxvella]

Может быть будет в помощь...

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
s:string;
begin
if Key=#13 then
begin
Table1.Active:=true;
s:='';
if Edit1.Text<>'' then s:=s+'Fio='+#39+edit1.text+'*'+#39;
if (edit1.text<>'')and(Edit2.Text<>'')then s:=s+' and ';
if Edit2.Text<>'' then s:=S+'Address='+#39+edit2.text+'*'+#39;
if (edit3.text<>'')and((edit1.text<>'') or(Edit2.Text<>''))then s:=s+' and ';
if Edit3.Text<>'' then s:=s+'Phone='+#39+edit3.text+'*'+#39 ;
Table1.Filter:=s;
Table1.Filtered:=true;
end;
end;

на примере тел.справочника методом фильтра