读xml文件的方法DEMO

猫工

var
Doc: TXMLDocument;
Child: TDOMNode;
j: Integer;
str: char;
begin
ReadXMLFile(Doc, 'F:\Code\yt\Lazarus\test\xml\teste.xml');
// using FirstChild and NextSibling properties
Child := Doc.DocumentElement.FirstChild;
while Assigned(Child) do
begin
Memo.Lines.Add(Child.NodeName + ' ' + Child.Attributes.Item[0].NodeValue);
Application.MessageBox(PChar('aho'), PChar(UTF8TOANSI(Child.Attributes.Item[0].NodeValue)),16);
// using ChildNodes method
with Child.ChildNodes do
try
for j := 0 to (Count - 1) do
begin
Memo.Lines.Add(Item[j].NodeName + ' ' + Item[j].FirstChild.NodeValue);
Application.MessageBox(PChar(Item[j].NodeName), PChar(Item[j].FirstChild.NodeValue),16);
end;
finally
Free;
end;
Child := Child.NextSibling;
end;
Doc.Free;

param810

问一下楼主，在lazarus中读写xml，应该加入什么单元？我按照在delphi下的做，怎么不行啊，老是找不到这个单元，找不到那个单元，给指点一下吧。

roc

DOM

还有fcl-xml库里面的一些单元

猫工

uses
  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls,
  DOM, Buttons, XMLRead, XMLWrite;  

我USE的

fzh5810

使用的是否提示找不到“TXMLDocument”，怎么样添加这个单元呢

fzh5810

不好意思，没有添加USE DOM,

书痕

当我用Writeln输出Child.Attributes.Item[0].NodeValue时会报错，lz能否帮帮忙？
uses
  Classes, SysUtils,
  DOM, XMLRead, XMLWrite;
Var
  Doc : TXMLDocument;
  Child : TDOMNode;
  j:Integer;
begin
  ReadXMLFile(Doc,'xmlFile.xml');
       //using FirstChild and nextSibling properties
  Child := Doc.DocumentElement.FirstChild;

  while Assigned(Child) do
  begin
    Writeln(Child.NodeName + ':' + Child.Attributes.Item[0].NodeValue);
      //using ChildNodes method
    with Child.ChildNodes do
    try
      for j:=0 to (Count - 1) do
      begin
        Writeln(Item[j].NodeName + ':' + Item[j].FirstChild.NodeValue);
      end;
    finally
      Free;
    end;
    Child := Child.NextSibling;
  end;
  Doc.Free;
end.

书痕

Project raised exception class 'External:SIGSEGV'
我的Ubuntu 9.04 Lazarus V0.9.26-4 beta

猫工

看debug-call stack