delphi clientdataset 与fdmemtable 创建 字段与追加记录

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;

————————————————

原文链接：https://blog.csdn.net/qq_18932003/article/details/102969953