Question

delphi中的 stringgrid中这几句代码是什么意思

For a := 1 to StringGrid1.RowCount-2 do
For b := a +1 to StringGrid1.RowCount-1 do
if Trim(StringGrid1.Cells[0,a])= Trim(StringGrid1.Cells[0,b]) then
begin
Iscf := True;
Break;

Answer 1

For a := 1 to StringGrid1.RowCount-2 do
// a从第二行循环到倒数第二行
For b := a +1 to StringGrid1.RowCount-1 do
// b从a +1行循环到倒数第一行
if Trim(StringGrid1.Cells[0,a])= Trim(StringGrid1.Cells[0,b]) then
// a行的第一个单元格内容 等于 b行的第一个单元格内容
begin
Iscf := True; //这个标志设为true
Break; //退出循环
这是个遍历表查找是否有两行第一个单元格内容相同的函数