本文整理自网络，侵删。
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;
相关阅读 >>
Delphi xe 取得 app 自己的版本号 (狠跨 4 个平台)
Delphi 测试字符串写入类: tstringwriter
更多相关阅读请进入《Delphi》频道 >>
