StringGrid 实例2：1、获取 StringGrid 的行数、列数; 2、给单元赋值.

实例2：

本例功能:
1、获取 StringGrid 的行数、列数;
2、给单元赋值.

运行效果图:

---

//示例代码:

//获取总列数，和总行数

procedure TForm12.Button1Click(Sender: TObject);

var

     cCount,rCount: Integer;

begin

     cCount := StringGrid1.ColumnCount; {获取总列数}

     rCount := StringGrid1.RowCount; {获取总行数}

     Caption := Format('总列数: %d ,总行数: %d', [cCount, rCount]); {显示在标题}

end;

//给每一个单元格赋值

     procedure TForm12.Button2Click(Sender: TObject);

var

     c,r: Integer;

begin

     for c := 0 to StringGrid1.ColumnCount - 1 do

        for r := 0 to StringGrid1.RowCount - 1 do

           StringGrid1.Cells[c,r] := Format('%d,%d', [c,r]);

end;

end.