現在想在多個TCustomClientDstaSet存檔時, 產生部分欄位資料至某同一XML檔 在Client端,待存入成功, 會將該XML與某XML檔合併,成一個XML 在某些狀況下, 會從該合併的XML,抓取資料, 我不想用TCustomClientDataSeth,savetofile,會產生太多我不要的資料,佔空間, 試看眾多的關xml的元件.TXMLDocument,TXMLTransform..., 說實在, 有點不知如何使用, 這三個大問題,如何產生xml,如何合併xml,如何讀取xml.. 不知那位先知, 可以指點名津??

我並不熟xml 但是我想您 可以看看 xmlUtil 這一個unit (FOR DELPHI 6 )裡有沒有 您可以使用的procedure ---------------------- 一切有為法 如夢幻泡影 如露亦如電 應做如是觀 ----------------------

引言: 我並不熟xml 但是我想您 可以看看 xmlUtil 這一個unit (FOR DELPHI 6 )裡有沒有 您可以使用的procedure

我是使用Delphi 7, 好像沒看到xmlUtil的東東??

type   TForm1 = class(TForm)     Button1: TButton;     Memo1: TMemo;     procedure FormCreate(Sender: TObject);     procedure Button1Click(Sender: TObject);   private     d1: TXMLDocument;     d2: TXMLDocument;   public     { Public declarations }   end;    var   Form1: TForm1;    implementation    {$R *.dfm}    procedure TForm1.FormCreate(Sender: TObject); begin   d1 := TXMLDocument.Create(self);   d2 := TXMLDocument.Create(self); end;    procedure TForm1.Button1Click(Sender: TObject); var   node: IDOMNode; begin   // 產生   d1.XML.Text := '123'; d1.Active := True; d2.XML.Text := '456'; d2.Active := True; node := d2.DOMDocument.createElement('e'); // 合併 node.appendChild(d1.DocumentElement.DOMNode); d2.DOMDocument.documentElement.appendChild(node); Memo1.Lines.Text := d2.DocumentElement.XML; end;

type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
d1: TXMLDocument;
d2: TXMLDocument;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
d1 := TXMLDocument.Create(self);
d2 := TXMLDocument.Create(self);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
node: IDOMNode;
begin
// 產生
d1.XML.Text := '123';
d1.Active := True;
d2.XML.Text := '456';
d2.Active := True;
node := d2.DOMDocument.createElement('e');
// 合併
node.appendChild(d1.DocumentElement.DOMNode);
d2.DOMDocument.documentElement.appendChild(node);
Memo1.Lines.Text := d2.DocumentElement.XML;
end;

謝謝你的指引, 我知道該如何進行了! 不過,還有個有問題: 我的xml的格式如下:

會因TYPE不同,而內容不同 我有何方式去讀取它? 再指引一盞明燈吧!! Thanks!!

你的xml不對吧…我想是這樣 procedure TForm1.Button1Click(Sender: TObject); var i: integer; NodeList: IXMLNodeList; RowType: string; NO: string; begin NodeList := XMLDocument1.DocumentElement.ChildNodes; for i := 0 to NodeList.Count -1 do begin RowType := NodeList.Get(i).Attributes['TYPE']; NO := NodeList.Get(i).Attributes['NO']; //... end; end;