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

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.

来源：https://www.cnblogs.com/lingzhiwen/p/3321951.html

推荐分享