zoukankan      html  css  js  c++  java
  • TClientDataSet[22]: 数组字段与 ObjectView


    数组字段(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;
    
  • 相关阅读:
    realplayer web播放器控件参数和函数
    几种技术语言简介!
    电子书标志设计,精品设计,形象设计,封面设计,宣传广告设计作品欣赏
    QuickCHM2.6出现了"不支持此接口"
    svchost.exe占用CPU 100%的解决方法
    [转]网站健康检查
    php新帮手 PHPMaker v5.0.1.0
    【OpenGL】理解GL_TRIANGLE_STRIP等绘制三角形序列的三种方式
    UML用例图总结
    【转】Ogre的八叉树场景管理器OctreeSceneManager
  • 原文地址:https://www.cnblogs.com/del/p/1664335.html
Copyright © 2011-2022 走看看