文档章节

学用 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
OpenCV学习(23) 使用kmeans算法实现图像分割

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

迈克老狼1
2013/10/23
0
0
mwArray

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

曾劲松
2016/08/10
15
0
剑指Offer(java版)-8皇后问题

题目:在8*8的国际象棋上摆放8个皇后,使其不能相互攻击,及任意两个皇后不得处于同一行,同一列或者同意对角线上,请问总共有多少种符合条件的摆法。 思路一: 由于八个皇后的任意两个不能处...

一贱书生
2016/07/28
8
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=0......

天蚕变
2012/06/23
985
6

没有更多内容

加载失败,请刷新页面

加载更多

帧动画(wifi信号动态动画)

准备六张wifi不同信号强度的素材图片,复制到drawable目录中 在drawable目录中新建frame文件,并编写代码 <animation-list xmlns:android="http://schemas.android.com/apk/res/android"> ...

lanyu96
35分钟前
2
0
快速get到学习Linux操作系统的点

Linux是一套免费使用和自由传播的类Unix操作系统,是一个基于POSIX和UNIX的多用户、多任务、支持多线程和多CPU的操作系统。Linux能够运行主要的UNIX工具软件、网络协议和应用程序。它支持32位...

问题终结者
43分钟前
1
0
Django2 model操作数据库

1.将应用(如learn)添加到安装应用配置中 将我们新建的应用(learn)添加到 settings.py 中的 INSTALLED_APPS中,告诉Django有这么一个应用。 INSTALLED_APPS = [ 'django.contrib.ad...

MichaelShu
45分钟前
2
0
SpringBoot基础篇Bean之条件注入之注解使用

更多Spring文章,欢迎点击 一灰灰Blog-Spring专题 bean的条件注入,除了前面一篇博文中介绍的通过@Conditional注解配合Condition接口的实现之外,还提供了更多简化的注解使用方式,省略了自己...

小灰灰Blog
56分钟前
3
0
git clone 报错 Clone failed: Authentication failed for

新装了系统,git和phpstorm的配置全都没有了,重新安装了git和phpstorm 系统:windows10 代码托管平台:阿里云code 软件的安装不作赘述。 报错1 Could not read from remote repository 解决...

Marhal
57分钟前
1
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部