sqlplus什么的可以运作sql语句，delphi一运行就报错

sqlplus什么的可以运行sql语句，delphi一运行就报错！

procedure Tfmtime.BitBtn1Click(Sender: TObject);

var

  sqlStr:string;

  ListItem: TListItem;

  i,j:Integer;

  dz_sg:Boolean;

begin

  if ((trim(edtYear.Text) = '') or (trim(edtMonth.Text) = '')or (trim(edtday.Text) = '')or

      (trim(edtYear2.Text) = '') or (trim(edtMonth2.Text) = '')or (trim(edtday2.Text) = '')) then

  begin

    ShowMessage('请输入查询年月!');

    exit;

  end;

  lvGr.Items.Clear;

  sqlStr := 'select id,mzh,name,yblb,fzkb,doc_code,doc_name,doc_dept,doc_result  from inpatient_info'

            +' where fzrq <'

            +quotedstr(trim(edtday.Text) +'-'+ trim(edtmonth.Text) +'月' +'-'+trim(edtyear.Text))

            +' and '

            +' fzrq >='

            +quotedstr(trim(edtday2.Text) +'-'+trim(edtmonth2.Text) +'月'+'-'+trim(edtyear2.Text));


    qryDg1.Close;

    qrydg1.sql.clear;

    qryDg1.SQL.add(sqlStr);

    qryDg1.Open;

    qryDg1.First;

    for i := 0 to qryDg1.RecordCount -1  do

    begin

      ListItem:=lvGr.Items.Add;

      ListItem.Caption:= Trim(qryDg1.FieldByName('id').AsString);

      ListItem.SubItems.Add(Trim(qryDg1.FieldByName('mzh').AsString));

      ListItem.SubItems.Add(Trim(qryDg1.FieldByName('name').AsString));

      ListItem.SubItems.Add(Trim(qryDg1.FieldByName('yblb').AsString));

      ListItem.SubItems.Add(Trim(qryDg1.FieldByName('fzkb').AsString));

      ListItem.SubItems.Add(Trim(qryDg1.FieldByName('doc_code').AsString));

      ListItem.SubItems.Add(Trim(qryDg1.FieldByName('doc_name').AsString));

      ListItem.SubItems.Add(Trim(qryDg1.FieldByName('doc_dept').AsString));

      ListItem.SubItems.Add(Trim(qryDg1.FieldByName('doc_result').AsString));

      next;

    end;


    //qryTTemp1

end;

报错：ORA01861:文字与格式字符串不匹配。

就是说我SQL语句格式错了。

但是


debug 的时候 取出sqlstr串里面的sql语句：select id,mzh,name,yblb,fzkb,doc_code,doc_name,doc_dept,doc_result  from inpatient_info where  fzrq <'2-2月-2013' and  fzrq >='2-2月-2013'  

放到查询分析器里面运行 没问题

求大神了~
------解决方案--------------------

引用:

数据库连接有nls的参数，也许你这个连接不认这个格式，可以确认的是当前连接的回话中日期格式肯定不是这个。 所以，简单的做法，或者说严谨的做法有两个：
1）要么用上to_char
2）要么在连接中设置nls_date_format

举例

procedure Tfrm_server.btn2Click(Sender: TObject);