---

//放置控件: 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;

轉載于:https://www.cnblogs.com/del/archive/2010/01/21/1653060.html

總結

以上是生活随笔為你收集整理的TClientDataSet[3]: 手动建立数据集的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。