高手帮忙解决以下!!
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循环