为什么这段代码老是死循环！

Question

procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.Text<>'' then
begin
adotable1.First;
while not adotable1.Eof do
begin
if adotable1.FieldByName('编号').AsString=edit1.Text then
begin
edit2.Text:=adotable1.FieldValues['名称'];
edit3.Text:=adotable1.FieldValues['主演'];
memo1.Text:=adotable1.FieldValues['简介'];
adotable1.Next;
end;
end;
end
else
begin
showmessage('对不起，检索项目不能为空！    ');
edit1.SetFocus;
end;
end;谢谢！

Answer 1

楼主的Next放错了位置。
procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.Text<>'' then
begin
adotable1.First;
while not adotable1.Eof do
begin
if adotable1.FieldByName('编号').AsString=edit1.Text then
begin
edit2.Text:=adotable1.FieldValues['名称'];
edit3.Text:=adotable1.FieldValues['主演'];
memo1.Text:=adotable1.FieldValues['简介'];end;
adotable1.Next;
end;
end
else
begin
showmessage('对不起，检索项目不能为空！    ');
edit1.SetFocus;
end;
end;

Answer 2

樓主這樣排版，我都看不清哪個begin 對哪個end 了...
要養成好的編碼習慣啊

Answer 3

xthmpro_cn(安徽农民*在外打工） 正解

Answer 4

同意xthmpro_cn(安徽农民*在外打工)

Answer 5

同意xthmpro_cn(安徽农民*在外打工)

Answer 6

PS, 其实问题我没看, 上面只是灌水好玩. :D

Answer 7

AdoTable1.Next放错了位置,放到下一个next后

Answer 8

同意安徽农民，更正楼上，是放在下一个end后