本例功能:
1、獲取 StringGrid 的行數、列數;
2、給單元賦值.

運行效果圖:

---

//示例代碼: unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ExtCtrls, Grids;typeTForm1 = class(TForm)StringGrid1: TStringGrid;Panel1: TPanel;Button1: TButton;Button2: TButton;procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject);end;varForm1: TForm1;implementation{$R *.dfm}{顯示列數與行數} procedure TForm1.Button1Click(Sender: TObject); varcCount,rCount: Integer; begincCount := StringGrid1.ColCount; {獲取總列數}rCount := StringGrid1.RowCount; {獲取總行數}Text := Format('總列數: %d; 總行數: %d', [cCount, rCount]); {顯示在標題} end;{給每個單元賦值} procedure TForm1.Button2Click(Sender: TObject); varc,r: Integer; beginfor c := 0 to StringGrid1.ColCount - 1 dofor r := 0 to StringGrid1.RowCount - 1 doStringGrid1.Cells[c,r] := Format('%d,%d', [c,r]); end;end.

轉載于:https://www.cnblogs.com/del/archive/2008/03/04/1090799.html

創作挑戰賽新人創作獎勵來咯，堅持創作打卡瓜分現金大獎

總結

以上是生活随笔為你收集整理的学用 TStringGrid [1] - ColCount、RowCount、Cells的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。