Delphi程序设计

来源：百度知道编辑：UC知道时间：2024/06/04 06:09:46

procedure TForm4.Edit9Change(Sender: TObject);
var bm:Tbookmarkstr;
begin
bm:=DM.ADOQuery1.Bookmark;
repeat
DM.ADOQuery1.Next;
until DM.ADOQuery1.Eof or DM.ADOQuery1.FieldValues['学号']=''''+self.Edit9.Text+'''';
if DM.ADOQuery1.Eof then DM.ADOQuery1.Bookmark:=bm;
end;
这几句有什么错误啊，为什么每次运行到这里就会出现错误啊
实现的功能是当Edit9 地text的属性改变时，自动定位到学号为 edit9 的元组上

or 两边的条件都要加括号
DM.ADOQuery1.FieldValues['学号']取出来的数据应该没有带有单引号吧
改成下面这样看下

until (DM.ADOQuery1.Eof) or (DM.ADOQuery1.FieldValues['学号']=self.Edit9.Text);

什么错误信息你得说啊，提问都不会提

你直接说你要实现什么功能好了,看你的这个代码有点郁闷,你把条件说清楚一下,我帮你写写看能不能实现.

Delphi程序设计是什么？ Delphi程序设计，有问题要问？？？？程序设计谁能给我大概说一下基于DELPHI的免安装程序设计的基本步骤？ "Delphi程序设计"中的MediaPlayer属性为什么不能播放歌曲dat格式呢? vb与delphi什么关系?都各有什么优缺点呢?学习程序设计一般使用什么环境及语言?~ VB程序设计交通灯程序设计 c++程序设计有关程序设计程序设计 primer