代码为什么会造成程序死了？delphi

while not data_m.ADO_km.Eof do
begin
for i := 0 to listbox2.Items.Count - 1 do
begin
if data_m.ADO_km.FieldValues['kmmc'] <> listbox2.Items[i] then
begin
listbox1.Items.Add(data_m.ADO_km.FieldValues['kmmc']);
data_m.ADO_km.Next;
end;
end;
end;

上面的程序运行后单击button按钮正常显示

而下面的代码欲行后就程序就死了

为什么呢？没感觉不一样啊

while not data_m.ADO_km.Eof do
begin
flag := false;
for i := 0 to listbox2.Items.Count - 1 do
begin
if data_m.ADO_km.FieldValues['kmmc'] = listbox2.Items[i] then
begin
flag := true;
break;
end;
end;
if not flag then
begin
listbox1.Items.Add(data_m.ADO_km.FieldValues['kmmc']);
data_m.ADO_km.Next;
end;
end; }

明显是 data_m.ADO_km.Next; 执行不到

所以 跳不出循环

下面造成了死循环，循环条件永远满足

break 跳出的是for 循环

下面 应改为

if not flag then begin listbox1.Items.Add(data_m.ADO_km.FieldValues['kmmc']); end;

data_m.ADO_km.Next;

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息