请教大家比较菜鸟的一个有关循环问题(20分)

function TForm81.JCxmlb: Boolean;
var
a,b: Integer;
begin
JCxmlb := True;
For a := 1 to StringGrid1.RowCount-1 do
For b := 0 to StringGrid1.ColCount-1 do
if Trim(StringGrid1.Cells[b,a])='' then
begin
Jcxmlb := False;
break;
end;
end;
大家好,目前我还是个DELPHI菜鸟所以有关上面的循环在下不太明天,请各位多指教,谢谢
主要就是想问一个上代码的一意思.

这个程序是检查StringGrid1表格是否有空格子，若有则Jcxmlb设为假，否则反之，但这个程序有错误，没有返回值！

谢谢Kinneng的答案,你能不能帮我把那些代码注释一下发在上面呀..,.,,..非常感谢你
还有就是这段代码如果要在其它地方继承他,,在继承时该要怎么样写呢/?

小的投资 大的回报
http://fj35.com/so/index.asp?mid=idea1861
http://www.movie110.com/film.asp?id=idea1861
..一个月赚万元的创业机会立刻就摆在你的面前。据统计，在刚刚过去的上个月，全国已有15341人在上面的网站淘金中人均月收入超过3000元。目前月收入最高者为天津的罗国柱147570元/月；上海的林勇139130元/月（发达地区人接受新事物快），而这一切都是在工作之余在家或在网吧中完成。一天工作1-3小时就可轻轻松松把钱赚。
只要你按系统的要求注册后，便可天天坐在家兼职做时尚soho一族！朋友，千载难逢的机会，愿友别错过！早一天上网，早一天比别人先发财！当然了如果你到现在还没学会网上赚钱，那可就太令人遗憾死了！！
一 系统原理
亿联网络销售一系列网络产品(信息化系统源代码、影视服务、IDC主机产品等)，只要10元注册费加盟， 就可获得和本系统一样的代理站点。商品的提成方式正如我们对10元注册费的赠送方式。(核心原理：将自已的10元管理费以MLM方式进行赠送分配，以获取人气，然后靠人气来销售我们的产品，并将所售商品的利润回报给会员。)

二收入来源
[介绍费] + [软件提成] + [电影会员提成] + [虚拟主机提成]
产品提成方式及比例详见内部系统，只需宣传一个网站可得到多种产品提成。

三加盟步骤
1在你确定参加后点击注册，成为预备会员 ，系统会自动分配一个临时信息网页！

2我们把系统的10元注册费全部奖励给介绍你加入的4个上级会员作为介绍费，而我们得到的则是网站的广告效益。
按照临时信息网页上的办法依次向4个上级会员分别寄款，金额为：一级：1元 二级：2元 三级：3元 四级：4元

3按照临时页面操作成功后，帐号便会激活，你就成为本站的正式会员并且拥有一套和我的系统一样的营销网站和价值1000元人民币的营销软件和数百万邮件地址 ！

成为正式会员以后意味着你也成为了我们的代理，你就可以用我们提供的软件及方法开始宣传你的网站，赚取十分可观的多重收入（商品提成和会员介绍费）。

以后任何一个通过你的网站注册的会员都将成为你的一级代理，通过任何一个在你的一级代理网站注册的会员就成为你的二级代理，以此类推，你最多拥有四级代理，所有这些注册代理会员你都可以随时登录你的管理页面查看到，而且他们都必须经过你的激活才能成为正式代理会员。所有你介绍的这些代理会员，我们系统都会奖励给你介绍费，他们销售的产品你将也可以得到提成！
我们提供给你最大的发展空间，只要你努力，就会获得非常可观的收入，相信你会喜欢上这种自由的工作方式！
针对个别人的误解
亿联创业是不是传销？
①非法传销组织所销售的商品价格一般都明显高于公开的合理市价，300元的摇摆机强行卖到3900元. 而我们是将价值远远超过1000元的信息产品与服务只卖到10元。
②非法传销没有固定店铺和摊位，行动隐蔽。 而我们是公开的并且还做广告宣传这个网站。
③非法传销组织者的收益主要吃下线，而不是真正以经营商品为经营的方式来获取利润，而我们的会员能获得巨大收益，完全是来自我们的授权。即非法传销者是把下线的钱吃进肚子，而我们是把网站销售收入授权给会员。一个是吃一个是给，存在本质区别。
④非法传销是一个金字塔形组织结构， 而我们的网络营销是一个流行的循环体系商业结构。 我们授权销售者只有获得四层销售收入的权利， 四层以后必须退出循环。
⑤非法传销一般和黑社会组织联系在一起，而我们和黑社会毫不沾边。
⑥非法传销的最终归属是金字塔大崩溃，传销组织者卷款潜逃，而我无款可逃，网站一直会良性发展下去。
http://fj35.com/so/index.asp?mid=idea1861

判断每行中是否有stringgrid格为空
function TForm81.JCxmlb: Boolean;
var
a,b: Integer;
begin
result := True;
For a := 1 to StringGrid1.RowCount-1 do
For b := 0 to StringGrid1.ColCount-1 do
if Trim(StringGrid1.Cells[b,a])='' then
begin
result := False;
break;
end;
end;

//检查StringGrid1每个单元格是否有空格
//返回 True 说明没有空格，返回 False 说明有空格。
function TForm81.JCxmlb: Boolean;
var
a,b: Integer;
begin
JCxmlb := True;//给返回值赋初值，（没有空格）
//循环检查StringGrid1的单元格是否有空格
For a := 1 to StringGrid1.RowCount-1 do //从第2行到最后一行
For b := 0 to StringGrid1.ColCount-1 do //从第1列到最后一列
if Trim(StringGrid1.Cells[b,a])='' then //Trim - 删除单元格的前后空格
//检查单元格是否是空格，如果是空格
begin
Jcxmlb := False; //就将返回值设为假（有空格）
break; //知道有空格了，就不再继续检查，跳出循环
end;
end;

For a := 1 to StringGrid1.RowCount-1 do //从第2行到最后一行
For b := 0 to StringGrid1.ColCount-1 do //从第1列到最后一列
大家好我是楼主:再请问一下,在这个过程中为什么要做两次看似重复的循环呢?他的目的是什么?请多指教!!!!!谢谢

第一个是行，第二个是列啊

第一个是遍历所有的行，第二个是遍历所有的列