use.sql.add('where type = edit1.text');
改为:
use.sql.add('where type = ''' + edit1.text + '''');—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
             毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样,改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————
    

解决方案 »

  1.   

    还有,你的表名和子短名怎么都是type?where后面应该是字段名。—————————————————————————————————
    MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
                 毁誉由人,望天上云卷云舒,聚散任风。';
    if Not Assigned(I) then
      I := TI.Create(Nil);
    I.Maxim := MaximStr;
    I.Explain := '假如上述代码中出现“OA”、“3D”等字样,改为“=”或者去掉';
    I.Desire := '加不加分随你';
    —————————————————————————————————
        
      

  2.   

    为什么要分开写?????????
    为什么'where type = edit1.text'等号左右要有空格??????????
      

  3.   

    procedure TForm1.Button1Click(Sender: TObject);
    begin    
    with use do
    begin
         close;
         use.sql.clear;
         use.sql.add('select * from type');
         //改为
         use.sql.add('where type = '+''''+edit1.text+'''');
         use.open;
       end;end;
      

  4.   

    都 with use do 了
    为什么还要 use.sql.clear;
      

  5.   

    use.sql.add('select * from type');中的type?是表名吗?
    use.sql.add('where type = '+''''+edit1.text+'''');中的type是字段名吗?
      

  6.   

    因为d5很奇怪的
    即使with do也需要2加query名字的,我也不知道为什么,d6就不会
    是的
    我表名和字段名都使用了type,对不起,一时偷懒
      

  7.   

    其中use.sql.add('select * from type');
        use.sql.add('where type = '+''''+edit1.text+'''');
    可改为use.sql.add('select type from type');
        use.sql.add('where type = '+edit1.text);
    你可以试一试!