Unnamed

procedure TForm1.Filter_Date_TimeClick(Sender: TObject);
var start_datum : string;
    end_datum : string;
    start_ido : string;
    end_ido : string;
    formatum  : TFormatSettings;
    formatum_datum : TFormatSettings;
begin
  formatum_datum.DateSeparator:='.';
  formatum_datum.LongDateFormat:='yyyy.mm.dd';
  formatum_datum.ShortDateFormat:='yyyy.MM.dd';

  formatum.TimeSeparator:=':';
  formatum.LongTimeFormat:='hh:nn';
  formatum.ShortTimeFormat:='HH:mm';

  start_datum:=datetostr(DateTimePicker3.Date,formatum_datum);
  end_datum:=datetostr(DateTimePicker4.Date,formatum_datum);

  start_ido:=timetostr(DateTimePicker1.Time,formatum);
  end_ido:=timetostr(DateTimePicker2.Time,formatum);

  if start_ido>end_ido then
    begin
//    AdoQuery1.SQL.Add('SELECT * FROM cardmanager WHERE Bolt_nev='+QuotedStr(bolt_valaszt)+' and (Datum >= '+QuotedStr(start_datum)+' and Datum <= '+QuotedStr(end_datum)+') and (Ido >= '+QuotedStr(start_ido)+' or Ido <= '+QuotedStr(end_ido)+')')
      AdoQuery1.Filter:='Bolt_nev= '+QuotedStr(bolt_valaszt)+' and (Datum >= '+QuotedStr(start_datum)+' and Datum <= '+QuotedStr(end_datum)+') and (Ido >= '+QuotedStr(start_ido)+' or Ido <= '+QuotedStr(end_ido)+')';
      AdoQuery1.Filtered:=true;
//    AdoQuery1.Filter:='Bolt_nev= '+QuotedStr(bolt_valaszt)+' and (Datum >= '+QuotedStr(start_datum)+' and Datum <= '+QuotedStr(end_datum)+') and (Ido >= '+QuotedStr(start_ido)+' or Ido <= '+QuotedStr(end_ido)+')';
//    AdoQuery1.Filtered:=true;
    end
  else
    begin
//    AdoQuery1.SQL.Add('SELECT * FROM cardmanager WHERE Bolt_nev='+QuotedStr(bolt_valaszt)+' and (Datum >= '+QuotedStr(start_datum)+' and Datum <= '+QuotedStr(end_datum)+') and (Ido >= '+QuotedStr(start_ido)+' and Ido <= '+QuotedStr(end_ido)+')');
    AdoQuery1.Filter:='Bolt_nev= '+QuotedStr(bolt_valaszt)+' and (Datum >= '+QuotedStr(start_datum)+' and Datum <= '+QuotedStr(end_datum)+') and (Ido >= '+QuotedStr(start_ido)+' and Ido <= '+QuotedStr(end_ido)+')';
    end;
  INFO_Lines.Text:=inttostr(AdoQuery1.RecordCount);
end;