資料庫內容寫入XML時欄位重複

發文回覆瀏覽次數：1983

推到 Plurk!

推到 Facebook!

資料庫內容寫入XML時欄位重複

缺席

leaves827
一般會員

發表：3
回覆：2
積分：1
註冊：2008-04-30

發送簡訊給我

#1 引用回覆回覆

發表時間：2008-08-22 15:39:41

IP:163.25.xxx.xxx 訂閱

[code cpp]
//write to XML
void __fastcall TForm1::Button2Click(TObject *Sender)
{
AnsiString flist[128][6];

//將 friend list data 放至 array
for(int row=1;row<=DBGrid1->DataSource->DataSet->RecordCount;row )
{
DBGrid1->DataSource->DataSet->RecNo=row;
for(int col=0;colDataSource->DataSet->FieldCount;col )
{
flist[row-1][col]= DBGrid1->DataSource->DataSet->Fields->Fields[col]->AsString;
}
}
//****************將 array 的內容寫入 XML**************//
if (FileExists("friend_list.xml"))
DeleteFile("friend_list.xml");

_di_IXMLDocument froot=NewXMLDocument(); //create XML
froot->SetVersion("1.0");
froot->SetEncoding("UTF-16");

froot->SetDocumentElement(froot->CreateElement("temp",""));

_di_IXMLNode sroot=froot->DocumentElement;
_di_IXMLNode slist;

for(int row=1;row<=DBGrid1->DataSource->DataSet->RecordCount;row )
{
DBGrid1->DataSource->DataSet->RecNo=row;
for(int col=0;colDataSource->DataSet->FieldCount;col )
{
slist = sroot->AddChild("aa");
slist->Text = flist[row-1][col];
}
}
froot->SaveToFile("friend_list.xml"); //save XML
delete froot;
Memo1->Lines->Add("寫入XML完成");
[/code]
寫入至XML時會有同一欄位寫入2次或順序亂掉
另外請問BOF或EOF為True如何解決

附加檔案：48ae6d3d91e80_新增文字文件.txt

系統時間：2024-12-04 1:12:28

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！