提示SpinEdit1和SpinEdit2没有默认值,怎么回事?
procedure TFAcjdkcx.SpeedButton1Click(Sender: TObject);
begin
  with Fdm.AQ_adkcjcx do
  begin
    close;
    sql.Clear;
    sql.Add('select * from Achievement');
    sql.Add('where Achievement between SpinEdit1.TEXT and SpinEdit2.TEXT');
    open;
  end;
end;

解决方案 »

  1.   

    提示SpinEdit1和SpinEdit2没有默认值,怎么回事?
    procedure TFAcjdkcx.SpeedButton1Click(Sender: TObject);
    begin
      with Fdm.AQ_adkcjcx do
      begin
        close;
        sql.Clear;
        sql.Add('select * from Achievement');
        sql.Add('where Achievement between' + IntToStr(SpinEdit1.Value)' + ' and ' + IntToStr(SpinEdit2.Value));
        open;
      end;
    end;
      

  2.   

    sql.Add('where Achievement between  ' + IntToStr(SpinEdit1.Value) + ' and  ' + IntToStr(SpinEdit2.Value));