//放置控件: ClientDataSet1、DataSource1、DBGrid1、Button1, 然后procedure TForm1.Button1Click(Sender: TObject);
begin{ 添加字段 }with ClientDataSet1.FieldDefs.AddFieldDef dobeginName := 'ID';DataType := ftInteger;end;with ClientDataSet1.FieldDefs.AddFieldDef dobeginName := 'Name';DataType := ftString;Size := 12; { ftString 类型的 Size 默认 20 }end;with ClientDataSet1.FieldDefs.AddFieldDef dobeginName := 'Age';DataType := ftWord;end;with ClientDataSet1.FieldDefs.AddFieldDef dobeginName := 'Sex';DataType := ftBoolean;end;{ 构建数据集, 不可缺少的一步 }ClientDataSet1.CreateDataSet;{ 显示; 如果在设计时已挂接或不需要显示, 可省略下两行 }DataSource1.DataSet := ClientDataSet1;DBGrid1.DataSource := DataSource1;{ 添加数据 }ClientDataSet1.AppendRecord([1, '张三', 33, True]);ClientDataSet1.AppendRecord([2, '李四', 44, False]);ClientDataSet1.AppendRecord([3, '王五', 55, True]);{ 保存为 cds 或 XML }ClientDataSet1.SaveToFile('C:\Temp\TestBinary.cds');ClientDataSet1.SaveToFile('C:\Temp\TestXMLUTF8.xml', dfXMLUTF8);
end;

这个表的设计也可以在设计时完成:

procedure TForm1.Button1Click(Sender: TObject);
begin{ 添加字段 }with  ClientDataSet1.FieldDefs dobeginAdd('ID', ftInteger);Add('Name', ftString, 12);Add('Age', ftWord);Add('Sex', ftBoolean);end;{ 构建数据集, 不可缺少的一步 }ClientDataSet1.CreateDataSet;{ 显示; 如果在设计时已挂接或不需要显示, 可省略下两行 }DataSource1.DataSet := ClientDataSet1;DBGrid1.DataSource := DataSource1;{ 插入数据 }ClientDataSet1.InsertRecord([1, '张三', 33, True]);ClientDataSet1.InsertRecord([2, '李四', 44, False]);ClientDataSet1.InsertRecord([3, '王五', 55, True]);{ 保存为 cds 或 XML }ClientDataSet1.SaveToFile('C:\Temp\TestBinary.cds');ClientDataSet1.SaveToFile('C:\Temp\TestXMLUTF8.xml', dfXMLUTF8);
end;