var i,j:integer;
begin
for i:= 0 to 100 do
begin
for j:= 0 to 10 do
begin
if
end;
end;
end;
請問我在子循環裡用條件來判斷,如果不符合條件,就終止子循環,繼續外面的循環,我用exit或break則全部停止了,有什麼方法
begin
for i:= 0 to 100 do
begin
for j:= 0 to 10 do
begin
if
end;
end;
end;
請問我在子循環裡用條件來判斷,如果不符合條件,就終止子循環,繼續外面的循環,我用exit或break則全部停止了,有什麼方法
解决方案 »
- oracle数据库的插入和更新
- 比较难实现的问题,从主EXE调用另外一个EXE程序..请高手帮忙
- 关于AlphaControls 控件
- 求<<DELPHI 5编程实例与技巧>>源代码.书店,网上都没找到.解决给分.
- 在其他windows系统下运行正常的数据库查询程序在XP下报错。
- 江湖救急!!!
- 类的继承问题??
- 一个智力题,答者有分,答对者分更多!!!
- 有关数据库的问题
- 有谁知道1stclass3000forVcl6.exe的注册码?重分相送,绝不食言!
- 大家说说,现在会出现这样的情况吗????熟悉delphi的进啊!!!!!!!!
- 有什么方法在 TDataSet 的 post 方法之前检测数据完整性,如果不正确,就不 post。注:我直接在 DBGrid 中新增数据
i,j : integer;
begin
for i := 0 to 100 do
begin
for j := 0 to 10 do
begin
if ...
else Break; //跳出子循环
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
for i:= 0 to 10 do
begin
for j:= 0 to 10 do
begin
if i <> 9 then
self.Memo1.Lines.Add(inttostr(i)+'='+inttostr(j))
else break;
end;
//Continue;
end;
end;end.
必须设置变量退出外圈大循环,不用我告诉你怎么写了把