（load）读xml文件[分享]**

lixy

unit MainForm;

interface

uses
  Business.System, Business.Forms,Business.Model, Borland.Delphi.msxml;

type
  TMainForm = class(TForm)
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
  private
    {private declarations}
  public
    {public declarations}
  end;

implementation


procedure TMainForm.Button1Click(Sender: TObject);
var
   Data: IXMLDOMDocument;
    lNode: IXMLDOMNode;
begin
     if   OpenDialog1.Execute then
     begin
          Data := ComObj.CreateOleObject('Microsoft.XMLDOM') as IXMLDOMDocument;
         if not data.load(OpenDialog1.FileName) then
         begin
            dialogs.ShowMessage('装载失败!');
         end
         else begin
          dialogs.ShowMessage(data.documentElement.getElementsByTagName('Develop').item[0].childNodes[1].Get_attributes.getNamedItem('UserID').text);
         end;
     end;
end;

end.

lixy

温馨提示：
用我们建模工具目录里的config.xml测试哦！！！