文档章节

学用 TStringGrid [3] - Cols、Rows

涂孟超
 涂孟超
发布于 2014/09/26 15:37
字数 245
阅读 8
收藏 0
须知: TStringGrid 的每行、每列都是一个 TStrings 对象.

本例功能:
1、分别按列与行修改;
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;
    Button3: TButton;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{按列赋值}
procedure TForm1.Button1Click(Sender: TObject);
var
  List: TStrings;
begin
  List := TStringList.Create;
  List.CommaText := 'aaa,bbb,ccc,ddd';
  StringGrid1.Cols[0] := List;
  StringGrid1.Cols[1] := List;
  List.Free;
  (Sender as TButton).Caption := '按列赋值';
end;

{按行赋值}
procedure TForm1.Button2Click(Sender: TObject);
var
  List: TStrings;
begin
  List := TStringList.Create;
  List.CommaText := '111,222,333,444';
  StringGrid1.Rows[0] := List;
  StringGrid1.Rows[1] := List;
  List.Free;
  (Sender as TButton).Caption := '按行赋值';
end;

{按列取值}
procedure TForm1.Button3Click(Sender: TObject);
var
  List: TStrings;
begin
  List := StringGrid1.Cols[StringGrid1.Col]; {当前列}
  ShowMessage(List.Text);
  (Sender as TButton).Caption := '按列取值';
end;

{按行取值}
procedure TForm1.Button4Click(Sender: TObject);
var
  List: TStrings;
begin
  List := StringGrid1.Rows[StringGrid1.Row]; {当前行}
  ShowMessage(List.Text);
  (Sender as TButton).Caption := '按行取值';
end;

end.

 
 
 
 
 

 

 

  

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

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
python opencv3实例(对象识别和增强现实)1-图像几何转换

python opencv3实例(对象识别和增强现实)1-图像几何转换 Published: 三 28 三月 2018 By andrew In python. 原书代码地址 在本

Python测试开发人工智能
07/04
0
0
mwArray

在vc中调用MATLAB产生的组建时,需要将vc中的参数转换成mwArray格式。 对mwArray赋值,主要包括矩阵赋值和字符串赋值。 一.矩阵赋值 <1>mwArray 定义矩阵变量 mwArray A(rows, cols, type) ...

曾劲松
2016/08/10
15
0
OpenCV学习(23) 使用kmeans算法实现图像分割

本章我们用kmeans算法实现一个简单图像的分割。如下面的图像,我们知道图像分3个簇,背景、白色的任务,红色的丝带以及帽子。 Mat img = cv::imread("../kmeans.jpg"); namedWindow("image"...

迈克老狼1
2013/10/23
0
0
大家来看看,我自己封装的opencv的求矩阵正弦的函数,调用前究竟要不要申请内存?

我自己封装的对矩阵的每个元素求三角sin的函数,如下: CvMat* cvSinMat(CvMat *a) { int rows = a->rows; int cols = a->cols; CvMat *out = cvCreateMat(rows, cols, a->type); for(int i......

天蚕变
2012/06/23
1K
6
为什么我的线条画不出来?(代码如下)

我想画一个网格 但是怎么显示不出来? import java.awt.BorderLayout; import java.awt.Canvas; import java.awt.Color; import java.awt.Graphics; import javax.swing.JFrame; import jav......

小冷不冷
2012/05/13
485
3

没有更多内容

加载失败,请刷新页面

加载更多

CentOS配置Tomcat监听80端口,虚拟主机

Tomcat更改默认端口为80 更改的配置文件是: /usr/local/tomcat/conf/server.xml [root@test-a ~]# vim /usr/local/tomcat/conf/server.xml # 找到 Connector port="8080" protocol="HTTP/1......

野雪球
今天
5
0
《稻盛和夫经营学》读后感心得体会3180字范文

《稻盛和夫经营学》读后感心得体会3180字范文: 一代日本经营之圣稻盛和夫凭借刻苦勤奋的精神以及深植于佛教的商业道德准则,成为了“佛系”企业家的代表人物。在《稻盛和夫经营学》“领导人...

原创小博客
今天
3
0
java框架学习日志-5(常见的依赖注入)

依赖注入(dependency injection) 之前提到控制反转(Inversion of Control)也叫依赖注入,它们其实是一个东西,只是看的角度不同,这章详细说一下依赖注入。 依赖——指bean对象创建依赖于...

白话
今天
4
0
红外接收器驱动开发

背景:使用系统的红外遥控软件没有反应,然后以为自己接线错误,反复测试,结果烧坏了一个红外接收器,信号主板没有问题。所以自己开发了一个红外接收器的python驱动。接线参见https://my.os...

mbzhong
今天
2
0
ActiveMQ消息传送机制以及ACK机制详解

AcitveMQ是作为一种消息存储和分发组件,涉及到client与broker端数据交互的方方面面,它不仅要担保消息的存储安全性,还要提供额外的手段来确保消息的分发是可靠的。 一. ActiveMQ消息传送机...

watermelon11
今天
2
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部