使用TClientDateSet 在内存中创建一个临时表

jinzhili

于 2006-01-25 10:41:00 发布

阅读量1.4k

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi

本文链接：https://blog.youkuaiyun.com/jinzhili/article/details/588056

Delphi 专栏收录该内容

55 篇文章

订阅专栏

本文介绍如何使用TClientDateSet组件在Delphi中创建一个本地内存表，并定义了字符串和整数类型的字段，适用于快速开发小型应用程序的数据管理需求。

//------------------创建本地表-----使用TClientDateSet 在内存中创建一个临时表--------------------------------------

    for i := ACS.FieldDefs.Count -1 downto 0 do
    begin
      ACS.FieldDefs.Delete(i);
    end;
    ACS.Close;

if ACS.Active then ACS.Close;

    with ACS do begin
      with FieldDefs.AddFieldDef do begin
        DataType := ftString;
        Size := 20;
        Name := 'ksbh';
      end;

      with FieldDefs.AddFieldDef do begin
        DataType := ftString;
        Size := 20;
        Name := 'gg';
//        Name := 'jzlgg';
      end;

      for i := 2 to AGrid.Columns.Count -1 do
      begin
        with FieldDefs.AddFieldDef do begin
          DataType := ftInteger;
          Name := AGrid.Columns[i].FieldName;
        end;
      end;

      //合计 06-1-18 adding
      with FieldDefs.AddFieldDef do begin
        DataType := ftInteger;
      end;
      CreateDataSet;
    end;