实例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.
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】博客园社区专享云产品让利特惠,阿里云新客6.5折上折
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步