大哥们帮帮忙！简单问题！！(30分)

6713827 · 2006-09-22

For I:=0 To Yuan.Count-20 Do Begin  If Pos(Yuan,Ben.Text)>0 then  Begin  UpData.Delete(I);  End; End; 问题出在POS函数 循环语句没循环一次，POS没查询数据都往行未走，只到最后，到了最后一行，什么都查不到了！ 问题出在每循环一次，POS不会从行首开始查找，而是接着上次查询的行继续查找！！ 那为大侠告诉弟弟一下啊！谢谢了！！！

Johnny_du · 2006-09-22

For I:=0 To Yuan.Count-20 Do Begin  First;  If Pos(Yuan,Ben.Text)>0 then  Begin  UpData.Delete(I);  End; End;

dey-999 · 2006-09-22

第一:For I:=0 To Yuan.Count-20 Do中20对不对 第二:If Pos(Yuan,Ben.Text)>0 then中Pos函数的参数位置对不对,子串在前面 第三: For I:=Yuan.Count-20 downto 0 Do Begin  If Pos(Yuan,Ben.Text)>0 then  Begin  UpData.Delete(I);  End; End;

6713827 · 2006-09-22

谢谢Johnny_du，你的答案是对的。 至于dey-999的意思我明白，你所说的是减到0循环就停止，我的语句没有错误。就是不能返回行首查询！ 谢谢大侠们了！

大哥们帮帮忙！简单问题！！(30分)

6713827

Unregistered / Unconfirmed

Johnny_du

Unregistered / Unconfirmed

dey-999

Unregistered / Unconfirmed

6713827

Unregistered / Unconfirmed

Similar threads