這是我寫的：
unit Unit_loadXml;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, xmldom, XMLIntf, StdCtrls, msxmldom, XMLDoc;
type
TForm1 = class(TForm)
XMLDocument1: TXMLDocument;
Memo1: TMemo;
procedure LoadXML(XMLStr: string);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.LoadXML(XMLStr: string);
var
xmldoc:IXMLDocument;
rNode,usrNode: IXMLDOMNode;
I:Integer;
begin
xmldoc:=IXMLDocument.create;
xmldoc.se
end;
end.
下面圖片是網上的例子。
初學！求各路大神指導！
uj5u.com熱心網友回復：
我寫到rNode :=xmldoc一敲點，就提示我程式有錯，不能完成呼叫uj5u.com熱心網友回復：
Memo1.Clear;
XMLDocument1.LoadFromFile(MainPath+'20140606.xml'); // 讀取XML檔案
Memo1.Lines.Text := FormatXMLData(XMLDocument1.XML.Text); // 查看格式化文本
讀入XML檔案，并格式顯示。
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/86089.html
標籤：語言基礎/算法/系統設計