發表這篇文章的靈感，來自於以下這篇文章 【 class="code"> 1.此篇文章的目的為何?? 示範如何以 VCL 元件 TXMLDocument 存取 XML 檔案，甚至把 XML 當成應用 程式的小型資料庫 2.是否有完整的範例 Project (包含 Source Code) 可以下載?? http://delphi.ktop.com.tw/loadfile.php?TOPICID=10818232&CC=241948 3.該如何操作這個範例?? (1)下載及解壓縮檔案 XMLDemo.zip，執行 XMLDemo.exe (2)按「Load XML」Button 載入檔案「XMLDemo.xml」的內容至 StringGrid1 (3)在 StringGrid1 編輯 Record & Field 的內容 (4)按「Save XML」Button 儲存 StringGrid1 的內容至檔案「XMLDemo.xml」 (5)利用「記事本」或「UltraEdit」把檔案「XMLDemo.xml」打開，觀查其內 容是否已經被修改?? 4.這個範例可以在哪一個作業系統執行?? 理論上在 Windows 9X/ME/NT/2000/XP/2003 都可以執行，不過目前只有在 Windows 2000 實際測試過，有興趣的會員，也請幫忙測試看看 5.如果寫得不好，或是有不對的地方，請大家多多指教 --

------
-- 若您已經得到滿意的答覆，請適時結案!! --
-- 欲知前世因，今生受者是；欲知來世果，今生做者是 --
-- 一切有為法，如夢幻泡影，如露亦如電，應作如是觀 --

引言: 發表這篇文章的靈感，來自於以下這篇文章 【 class="code"> 1.此篇文章的目的為何?? 示範如何以 VCL 元件 TXMLDocument 存取 XML 檔案，甚至把 XML 當成應用 程式的小型資料庫 2.是否有完整的範例 Project (包含 Source Code) 可以下載?? http://delphi.ktop.com.tw/loadfile.php?TOPICID=10818232&CC=241948 3.該如何操作這個範例?? (1)下載及解壓縮檔案 XMLDemo.zip，執行 XMLDemo.exe (2)按「Load XML」Button 載入檔案「XMLDemo.xml」的內容至 StringGrid1 (3)在 StringGrid1 編輯 Record & Field 的內容 (4)按「Save XML」Button 儲存 StringGrid1 的內容至檔案「XMLDemo.xml」 (5)利用「記事本」或「UltraEdit」把檔案「XMLDemo.xml」打開，觀查其內 容是否已經被修改?? 4.這個範例可以在哪一個作業系統執行?? 理論上在 Windows 9X/ME/NT/2000/XP/2003 都可以執行，不過目前只有在 Windows 2000 實際測試過，有興趣的會員，也請幫忙測試看看 5.如果寫得不好，或是有不對的地方，請大家多多指教 -- >< face="Verdana, Arial, Helvetica"> 太強了!! 最近也在 K XML 的東西!! 覺得它是明日之星,越是了解,越覺得有危機感(可能下一波XML的時代被淘汰了) 感謝 R 前輩的分享!!

疑?奇怪? XML 不是 MyBase 中就有的東西?? bcb 6.0 跟 Kylix 3.0 中不就可把 XML 當單機版資料庫來用 透過 MyBase 連結的資料庫有 *.xml 跟 *.cds(二進位格式) 所以敝人才覺得很疑惑... 用 Kylix3 (應該跟 bcb6 相同)中 TClientDataSet 元件 產生 xml 資料庫的例子: 以下是在某一 button OnClick 中的範例 按一下該 button 就可產生 c:\animals.xml TClientDataSet *NewClientDataSet = new TClientDataSet(this); NewClientDataSet->FieldDefs->Clear(); NewClientDataSet->FieldDefs->Add("NAME",ftString,10,false); NewClientDataSet->FieldDefs->Add("SIZE",ftSmallint,0,false); NewClientDataSet->FieldDefs->Add("BMP",ftTypedBinary,0,false); NewClientDataSet->IndexDefs->Clear(); NewClientDataSet->IndexDefs->Add("DEFAULT_ORDER","",TIndexOptions()); NewClientDataSet->IndexDefs->Add("CHANDEINDEX","",TIndexOptions()); NewClientDataSet->CreateDataSet(); NewClientDataSet->SaveToFile("c:\\animals.xml"); NewClientDataSet->Free(); 看到以上程式碼,用法其實跟傳統的 TTable 元件之 CreateTable() 方法差不多 至於要開啟該 *.xml 只要在 Form 中插入一個ClientDataSet , 將ClientDataSet 的 FileName 屬性指到 c:\animal.xml 然後再 active , 跟使用 TTable 元件好像沒什麼差異 ... 發表人 - bruce0211 於 2003/07/25 16:04:23