БД, фильрация Опции

[klem4]

Господа, выручайте срочно, горю !

Что имеем :

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 если пробовать проводить в этом-же месте фильтрацию по другим полям, то все ок.

[мисс_граффити]

а ты случаем Date и DateTime не попутал?
и, кстати, # позволяет ввести цифру, а также + и -. Если тебе только цифры нужны - ставь 9.

Сообщение отредактировано: мисс_граффити - 26.10.2006 22:48