实例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.