内存表 FDMemTable ClientDataSet CreateDataSet 动态创建字段

ClientDataSet1.Close();
  ClientDataSet1.FieldDefs.Clear();
  ClientDataSet1.FieldDefs.Add('ID', ftInteger, 0, true);
  ClientDataSet1.FieldDefs.Add('Name', ftString, 20, false);
  ClientDataSet1.FieldDefs.Add('DT', ftDateTime, 0, false);
  ClientDataSet1.FieldDefs.Add('chk', ftBoolean, 0, false);
  ClientDataSet1.CreateDataSet();
  ClientDataSet1.Open;
  ClientDataSet1.Append;
  ClientDataSet1.FieldByName('id').Value := 101;
  ClientDataSet1.FieldByName('name').Value := 'abc';
  ClientDataSet1.FieldByName('dt').Value := Now;
  ClientDataSet1.Post;
  ClientDataSet1.AppendRecord([102,'bbb',Now()]);
  ClientDataSet1.AppendRecord([103,'ccc',Now()]);

FDMemTable1->Close();
FDMemTable1->FieldDefs->Clear();
FDMemTable1->FieldDefs->Add("ID", ftInteger, 0, true);
FDMemTable1->FieldDefs->Add("Name", ftString, 20, false);
FDMemTable1->FieldDefs->Add("DT", ftDateTime, 0, false);
FDMemTable1->CreateDataSet();
FDMemTable1->AppendRecord(ARRAYOFCONST((101, "aaa", Now().DateTimeString())));
FDMemTable1->AppendRecord(ARRAYOFCONST((102, "bbb", Now().DateTimeString())));
FDMemTable1->AppendRecord(ARRAYOFCONST((103, "ccc", Now().DateTimeString())));
FDMemTable1->First();

with CDS2 do
  begin
    with FieldDefs.AddFieldDef do
    begin
      DataType := ftInteger;
      Name := 'Field1';
    end;
    with FieldDefs.AddFieldDef do
    begin
      DataType := ftString;
      Size := 10;
      Name := 'Field2';
    end;
    with IndexDefs.AddIndexDef do
    begin
      Fields := 'Field1';
      Name := 'IntIndex';
    end;
    CreateDataSet;