文档章节

学用 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
Excel@C#.Net之单元格设置相关

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

donny945
2014/05/09
0
1
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

没有更多内容

加载失败,请刷新页面

加载更多

Java异常处理最佳实践

总结一些Java异常的处理原则 Java异常处理最佳实践 不要忘记关闭资源 在finally里关闭资源 public void readFile() { FileInputStream fileInputStream = null; File file = new Fil...

yysue
今天
1
0
00.编译OpenJDK-8u40的整个过程

前言 历经2天的折腾总算把OpenJDK给编译成功了,要说为啥搞这个,还得从面试说起,最近出去面试经常被问到JVM的相关东西,总感觉自己以前学的太浅薄,所以回来就打算深入学习,目标把《深入理...

凌晨一点
今天
4
0
python: 一些关于元组的碎碎念

初始化元组的时候,尤其是元组里面只有一个元素的时候,会出现一些很蛋疼的情况: def checkContentAndType(obj): print(obj) print(type(obj))if __name__=="__main__": tu...

Oh_really
昨天
6
2
jvm crash分析工具

介绍一款非常好用的jvm crash分析工具,当jvm挂掉时,会产生hs_err_pid.log。里面记录了jvm当时的运行状态以及错误信息,但是内容量比较庞大,不好分析。所以我们要借助工具来帮我们。 Cras...

xpbob
昨天
124
0
Qt编写自定义控件属性设计器

以前做.NET开发中,.NET直接就集成了属性设计器,VS不愧是宇宙第一IDE,你能够想到的都给你封装好了,用起来不要太爽!因为项目需要自从全面转Qt开发已经6年有余,在工业控制领域,有一些应用...

飞扬青云
昨天
6
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部