这段代码怎么是死循环,帮帮忙!(7分)

  • 主题发起人 主题发起人 maozhuxi
  • 开始时间 开始时间
M

maozhuxi

Unregistered / Unconfirmed
GUEST, unregistred user!

procedure TForm1.Button1Click(Sender: TObject);
begin
while not adoquery1.isempty do
begin
dbcombobox1.Items.add(adoquery1.Fieldbyname('xm').asstring);
adoquery1.next;
end;
end;
 
while not adoquery1.isempty do
因為你的adoquery1永遠都不會為空.
 
你的条件是当数据表 不空 的时候就循环,如果你的表不空,那么当然是死循环了。我想的你意思是不是
while not adoquery1.eof do
 
procedure TForm1.Button1Click(Sender: TObject);
begin
adoquery1.first;
while not adoquery1.eof do
begin
dbcombobox1.Items.add(adoquery1.Fieldbyname('xm').asstring);
adoquery1.next;
end;
end;

 
哎,
来晚了
 
多人接受答案了。
 

Similar threads

S
回复
0
查看
696
SUNSTONE的Delphi笔记
S
S
回复
0
查看
656
SUNSTONE的Delphi笔记
S
I
回复
0
查看
756
import
I
S
回复
0
查看
871
SUNSTONE的Delphi笔记
S
后退
顶部