文档章节

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

涂孟超
 涂孟超
发布于 2014/09/26 15:35
字数 173
阅读 1
收藏 0
本例功能:
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.

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2008/03/04/1090799.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
Excel导出最后一行缺失,求大神指导

public bool ExportDataGridview(GridView gridView, bool isShowExcele) { if (gridView.Rows.Count == 0) { return false; } //建立Excel对象 Microsoft.Office.Interop.Excel.Application......

就爱灬爆炸头
2014/06/10
438
3
字典转模型

#import <Foundation/Foundation.h> @interface CellStyleModel : NSObject @property (nonatomic, copy) NSString *type; @property (nonatomic, copy) NSNumber * verCoord; @property (no......

我爱觉觉
2015/12/01
23
0
优秀开源项目:MyXls

如果从快速生成Excel报表,不调用Excel组件角度讲,MyXls可能是一种最好的选择之一,当然使用Open Xml方式也是不错的选择。MyXls是一个用C#语言开发的生成Excel报表的优秀开源项目,在快速开...

terryli
2010/09/15
0
0
Delphi 导出数据至Excel的7种方法

一; delphi 快速导出excel uses ComObj,clipbrd; function ToExcel(sfilename:string; ADOQuery:TADOQuery):boolean; const xlNormal=-4143; var y : integer; tsList : TStringList; s,fil......

dillonxiao
05/14
0
0
Excel@C#.Net之单元格设置相关

range.NumberFormatLocal = "@"; //设置单元格格式为文本 range = (Range)worksheet.get_Range("A1", "E1"); //获取Excel多个单元格区域:本例做为Excel表头 range.Merge(0); //单元格合并动...

donny945
2014/05/09
0
1

没有更多内容

加载失败,请刷新页面

加载更多

JavaScript实现Apache .htaccess 转化nginx生成器工具-toolfk程序员工具网

本文要推荐的[ToolFk]是一款程序员经常使用的线上免费测试工具箱,ToolFk 特色是专注于程序员日常的开发工具,不用安装任何软件,只要把内容贴上按一个执行按钮,就能获取到想要的内容结果。T...

toolfk
7分钟前
0
0
一个EOS区块链RPC API接口的PHP SDK包

作为我们Block Producer对社区利益的承诺的一部分,我们希望专注于构建有助于提高EOS平台采用率的工具/应用程序。与大多数大型应用程序一样,当你只有少量或过时的文档并且缺乏工具来帮助你进...

笔阁
9分钟前
1
0
比特币和Dapp

在比特币的简史中,它已经从一种不受管制的非法活动货币转变为一种合法便捷的全球商业促进者。当然,加密货币受到无数因素的影响,这些因素共同使其成为世界上最难以预测的货币之一。但是,尽...

geek12345
12分钟前
0
0
php中流行的rpc框架详解

什么是RPC框架? 如果用一句话概括RPC就是:远程调用框架(Remote Procedure Call)那什么是远程调用?通常我们调用一个php中的方法,比如这样一个函数方法: localAdd(10, 20),localAdd方法...

hansonwong
13分钟前
0
0
Linux系统信息面板管理工具psdash

Psdash 是一款查看 Linux 系统信息的 web 面板,和另一款系统监控工具 Glances 一样,psDash 的系统信息的采集也是由 psutil 完成的。和 Glances 不同的是,psdash 没有提供 API,只带了一个...

linuxprobe16
16分钟前
0
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部