Что имеем :
class TfrmReport = class(TForm)
//....
mskEdtStart: TMaskEdit;
mskEdtEnd: TMaskEdit;
//...
end;
procedure TfrmReport.FormCreate(Sender: TObject);
begin
// ...
mskEdtStart.EditMask := '##.##.##';
mskEdtStart.Text := '';
mskEdtEnd.EditMask := '##.##.##';
mskEdtEnd.Text := '';
// ...
end;
procedure TfrmReport.btnPreviewClick(Sender: TObject);
var
startDate, endDate: TDateTime;
// ...
begin
// ...
try
startDate := StrToDate(mskEdtStart.Text);
endDate := StrToDate(mskEdtEnd.Text);
except
...
end;
// ...
with frmMain.tblCard do begin
Filter := 'C_Date >= ' + DateToStr(startDate) + ' AND C_Date <= ' + DateToStr(endDate); <-------------- ТУТ ОШИБКА
Filtered := true;
end;
//...
end;
end;
C_Date - поле типа Date (Paradox)
Что за точку он там нашел ? что я делаю не правильно, подозревают что MaskEdit мне тут карину портит, но как ?!
ps если пробовать проводить в этом-же месте фильтрацию по другим полям, то все ок.