文档章节

TClientDataSet[22]: 数组字段与 ObjectView

涂孟超
 涂孟超
发布于 2014/09/26 15:33
字数 334
阅读 2
收藏 0

数组字段(ftArray) 与 ADT 字段类似(设计过程一样), 定义数组字段时只需定义一个元素来说明元素类型.

本例同时测试 ObjectView 为 True 和 False 时的不同效果.

下面是在运行时实现的数组字段:



//先在窗体上放置: DBGrid1、DataSource1、ClientDataSet1 并关联, 然后:

procedure TForm1.FormCreate(Sender: TObject);
begin
//  ClientDataSet1.ObjectView := True;

  { 先定义两个基本字段 }
  with ClientDataSet1.FieldDefs.AddFieldDef do begin
    Name := 'ID';
    DataType := ftInteger;
  end;
  with ClientDataSet1.FieldDefs.AddFieldDef do begin
    Name := 'Group';
    DataType := ftString;
    Size := 7;
  end;

  { 定义数组字段: 假如数组包括 4 个元素 }
  with ClientDataSet1.FieldDefs.AddFieldDef do begin
    Name := 'Member';
    DataType := ftArray;
    Size := 4;
    ChildDefs.Add('TempName', ftString, 11); { 只需定义一个子元素来说明元素类型 }
  end;
  ClientDataSet1.CreateDataSet;

  { 添加记录 }
  ClientDataSet1.AppendRecord([1, '一组', VarArrayOf(['A1','A2','A3','A4'])]);

  { 下面的添加方式也可用于访问 }
  ClientDataSet1.Append;
  ClientDataSet1['ID'] := 2;
  ClientDataSet1['Group'] := '二组';
  TArrayField(ClientDataSet1.FieldByName('Member'))[0] := 'B1';
  TArrayField(ClientDataSet1.FieldByName('Member'))[1] := 'B2';
  TArrayField(ClientDataSet1.FieldByName('Member')).FieldValues[2] := 'B3';
  TArrayField(ClientDataSet1.FieldByName('Member')).FieldValues[3] := 'B4';
  ClientDataSet1.Post;

  ClientDataSet1.Append;
  ClientDataSet1['ID'] := 3;
  ClientDataSet1['Group'] := '三组';
  TArrayField(ClientDataSet1.FieldByName('Member')).Fields[0].AsString := 'B1';
  TArrayField(ClientDataSet1.FieldByName('Member')).Fields[1].AsString := 'B2';
  TArrayField(ClientDataSet1.FieldByName('Member')).Fields[2].Value := 'B3';
  TArrayField(ClientDataSet1.FieldByName('Member')).Fields[3].Value := 'B4';
  ClientDataSet1.Post;
end;

{ 可以通过下面代码查看 ObjectView 为 True 和 False 时的不同 }
procedure TForm1.Button1Click(Sender: TObject);
begin
  ClientDataSet1.Close;
  ClientDataSet1.ObjectView := not ClientDataSet1.ObjectView;
  Text := Format('ObjectView: %s', [BoolToStr(ClientDataSet1.ObjectView, True)]);
  ClientDataSet1.Open;
end;

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2010/02/05/1664335.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
TClientDataSet使用(二)

转自:http://hi.baidu.com/zwl232/blog/item/76f011dfc9543812622798f2.html TClientDataSet    与TTable、TQuery一样,TClientDataSet也是从TDataSet继承下来的,它通常用于多层体系结构的......

天地弦
2007/06/01
0
0
ClientDataSet探讨(1)-介绍

KeyLife富翁笔记 作者: hongxingdl 标题: ClientDataSet探讨(1)-介绍 关键字: midas 分类: 开发经验 密级: 公开 与TTable、TQuery一样,TClientDataSet也是从TDataSet继承下来的,...

天地弦
2004/08/06
0
0
JSon SuperObject 研究2:数据集与JSON对象互转

JSon SuperObject 研究2:数据集与JSON对象互转 JSON不能完全替代XML,但绝对是未来的大势所趋,其优点是简单、体积小、解析更快、解析占用资源更少。在delphi中,数据集是最常用数据存取方式...

vga
2014/12/20
0
1
一个ClientDataset的Delta与XML相互转换

一个ClientDataset的Delta与XML相互转换的文章: 大家都知道TClientDataSet的Delta属性保存数据集的变化,但是Delta是OleVariant类型的属性,这样如果用Delphi写Webservice,就有需要把它转成...

vga
2014/02/27
0
18
Android开发数据库三层应用-DataSnap

Android开发数据库三层应用-DataSnap 时间:2013-10-24 13:41:54 点击:4988   核心提示:我觉得Delphi最强大的的功能之一就是开发数据库三层应用的DataSnap,在Android上的实现,首先是完...

vga
2014/06/01
0
0

没有更多内容

加载失败,请刷新页面

加载更多

OSChina 周二乱弹 —— 其实我在地板也睡不着

Osc乱弹歌单(2018)请戳(这里) 【今日歌曲】 @witt-z :分享歌词: 阴天 在不开灯的房间,当所有思绪都一点一点沉淀。 分享莫文蔚的单曲《阴天》: 《阴天》- 莫文蔚 手机党少年们想听歌,...

小小编辑
6分钟前
9
1
微服务分布式事务实现

https://www.processon.com/view/link/5b2144d7e4b001a14d3d2d30

WALK_MAN
今天
3
0
《大漠烟尘》读书笔记及读后感文章3700字

《大漠烟尘》读书笔记及读后感文章3700字: 在这个浮躁的社会里,你有多久没有好好读完一本书了? 我们总觉得自己和别人不一样,所以当看到别人身上的问题时,很少有“反求诸己”,反思自己。...

原创小博客
今天
4
0
大数据教程(9.5)用MR实现sql中的jion逻辑

上一篇博客讲解了使用jar -jar的方式来运行提交MR程序,以及通过修改YarnRunner的源码来实现MR的windows开发环境提交到集群的方式。本篇博主将分享sql中常见的join操作。 一、需求 订单数据表...

em_aaron
今天
3
0
十万个为什么之什么是resultful规范

起源 越来越多的人开始意识到,网站即软件,而且是一种新型的软件。这种"互联网软件"采用客户端/服务器模式,建立在分布式体系上,通过互联网通信,具有高延时(high latency)、高并发等特点...

尾生
今天
3
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部