本例功能:
1、获取 StringGrid 的行数、列数;
2、给单元赋值.
运行效果图:
1、获取 StringGrid 的行数、列数;
2、给单元赋值.
运行效果图:
//示例代码: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Grids; type TForm1 = class(TForm) StringGrid1: TStringGrid; Panel1: TPanel; Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} {显示列数与行数} procedure TForm1.Button1Click(Sender: TObject); var cCount,rCount: Integer; begin cCount := StringGrid1.ColCount; {获取总列数} rCount := StringGrid1.RowCount; {获取总行数} Text := Format('总列数: %d; 总行数: %d', [cCount, rCount]); {显示在标题} end; {给每个单元赋值} procedure TForm1.Button2Click(Sender: TObject); var c,r: Integer; begin for c := 0 to StringGrid1.ColCount - 1 do for r := 0 to StringGrid1.RowCount - 1 do StringGrid1.Cells[c,r] := Format('%d,%d', [c,r]); end; end.