学用 TStringGrid [1] - ColCount、RowCount、Cells

最新推荐文章于 2024-01-30 17:37:42 发布

转载最新推荐文章于 2024-01-30 17:37:42 发布 · 926 阅读

文章标签：

#button #forms #windows #class #c

本文介绍了一个使用 Delphi 实现的 StringGrid 控件操作示例，展示了如何获取 StringGrid 的行数和列数，并为每个单元格赋值。通过简单的两个按钮点击事件，实现了对网格数据的基本管理。

本例功能:
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.