我想在一个edit控件里面的字变化以后,在DBGrid里面显示的信息指针就指向查找到与edit1.text相同的name 字段的那条纪录。
以下是我的代码:
//search为edit控件
procedure Tmainfrm.searchChange(Sender: TObject);
begin
        DMopenbook.DataModule1.ADOQuery1.First;
        while not DMopenbook.DataModule1.ADOQuery1.Eof do
        begin
          if DMopenbook.DataModule1.ADOQuery1.FieldByName('name').AsString<>search.Text then
            DMopenbook.DataModule1.ADOQuery1.Next;
        end;
end;
如果不等于则next,如果等于了呢?怎么退出while循环?

解决方案 »

  1.   

    to XDT(大头)怎么不管用?
      

  2.   

    不行?不行就goto,不过好像不建议用,就作为最后一招吧。
      

  3.   

    不行就让检测条件不成立,你在什么地方加的BREAK?
      

  4.   

    如果没有什么要释放的资源,用Exit
      

  5.   

    不会吧还真都是来灌水的,我也加入啊!是不是应该用recordindex啊?呵呵