delphi kbmmemtable 创建表

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；