for long:=0 to tqr.FieldCount-1 do
begin
while not tqr.eof do
begin
if tqr.fields[long].asinteger=0 then
//用什么命令可以跳出while循环,long增1进行下一个for循环
else begin
ary[i]:= tqr.fields[long].Asinteger;
inc(i);
tqr.next;
end;
//取出一个字段的值赋予数组ary
i:=0;
tqr.First;
end;
end;谢谢,当一个字段值是0的话,用什么命令可以跳出while循环,long增1进行下一个for循环
begin
while not tqr.eof do
begin
if tqr.fields[long].asinteger=0 then
//用什么命令可以跳出while循环,long增1进行下一个for循环
else begin
ary[i]:= tqr.fields[long].Asinteger;
inc(i);
tqr.next;
end;
//取出一个字段的值赋予数组ary
i:=0;
tqr.First;
end;
end;谢谢,当一个字段值是0的话,用什么命令可以跳出while循环,long增1进行下一个for循环
解决方案 »
- 为什么捕捉不到错误?
- 关于用delphi定义的dll,用pb调用的问题!
- Wise InstallMaster 打包的问题,急、急、急、急、急、急、急、急、急、急、急、急、、、、、
- 请IOoOI进来接分
- 怎样得到一个字符串string的子串 急~~~
- 了解TSocketServer的请进!
- 如何实现QQ这项功能?
- adocommand1.commandtext:='select * from TbProduct.dbf into TbNewProduct.dbf'执行没有结果
- 各位,如何恢复Win2K server下的资源管理器的“按web页”查看?12点前结贴!
- 请问让RichEdit控件能自动识别超链接的原理是什么?最后给出代码,谢谢,一定给分。
- 一个利用api的小技巧!
- 请教关于Image图形处理的问题----在线盼复!!
Break是用于跳出语句快,即End后的第一条语句,
Continue是忽略下面的语句,重新进行下次循环
break是退出这个循环
exit是退出这个函数或过程
如用Exit 完全跳出來了,這個函數全部退出了