我想在一个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循环?
以下是我的代码:
//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循环?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货