kbmmemtable 创建表

//建表
  kbmtbl1 := TkbmMemTable.Create(Self);
  ds1.DataSet := kbmtbl1;
  kbmtbl1.FieldDefs.Clear;
  kbmtbl1.FieldDefs.Add('Id', ftInteger, 0, False);
  kbmtbl1.FieldDefs.Add('Value', FtString, 20, False);
  kbmtbl1.FieldDefs.Add('Time', ftDateTime, 0, False);
 kbmtbl1.IndexDefs.Add('Index1','Id',[]);//定义索引
  kbmtbl1.CreateTable;
  kbmtbl1.Active := True;

上述是代码创建

或则 直接双击控件,new fields；

kbmmemtable 清空表数据

kbmtbl1.EmptyTable;