实例1:初始化StirngGrid的首行和首列
// 主要代码部分:
procedure TForm23.SetSGridTitle(Sender: TObject);
var
ColIndex, RowIndex: integer;
begin
//画第一行(标题栏)
for colIndex := 1 to StringGrid1.ColumnCount do
begin
StringGrid1.Cells[colIndex, 0] := '列名' + Chr(ord('A') - 1 + colIndex);
end;
//画第一列(数字栏)
StringGrid1.Columns[0].Width := 30;
StringGrid1.Cells[0, 0] := '序列';
for RowIndex := 1 to StringGrid1.RowCount - 1 do
begin
StringGrid1.Cells[0, RowIndex] := IntToStr(RowIndex);
end;
end;
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步