转换日期格式后我的日期过滤功能竟然不能用了，请问怎样修正，前辈门

Question

转换日期格式后我的日期过滤功能竟然不能用了，请问怎样修正，前辈门
procedure TForm1.FormActivate(Sender: TObject);
begin
  DataModule2.ADOConnection1.Connected := false;  shortdateformat := 'yyyy.mm.dd';
  self.Edit9.Text := datetimetostr(date);procedure TForm1.Edit9Exit(Sender: TObject);
begin
  DataModule2.adotable1.Filtered := false;
  DataModule2.ADOtable1.Filter := 'date_1=''' + edit9.Text + '''';
  DataModule2.ADOtable1.Filtered := true;
end;

Answer 1

DataModule2.ADOtable1.Filter := 'date_1=' + edit9.Text ;

Answer 2

Edit9.Text := FormatDatetime('yyyy.mm.dd', date);

Answer 3

Edit9.Text := FormatDatetime('yyyy.mm.dd', date);Up This...