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

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

[klem4]

Спасибо всем за помощь !

Filter := 'C_Date >= ' + QuotedStr(DateToStr(startDate)) + ' AND C_Date <= ' + QuotedStr(DateToStr(endDate));

а что такое DateToStr - это родное делфино или сам писал?

Родное ;)

Unit

SysUtils

Category

date/time routines

function DateToStr(Date: TDateTime): string;

Description

Use DateToStr to obtain a string representation of a date value that can be used for display purposes. The conversion uses the format specified by the ShortDateFormat global variable.

Что-то мне подсказывает, что с этим ShortDateFormat можно тоже поигарться, щас посмотрю что там.

Спасибо еще раз !