Delphi之通过代码示例学习XML解析

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, XMLIntf, XMLDoc;

type
  TForm1 = class(TForm)
    edt1: TEdit;
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure ReadXml(Node: IXMLNode; var showmess: string);
var
  NodeList: IXMLNodeList;
  strName: string;
  i: Integer;
begin
  if not Node.HasChildNodes then Exit;
  nodeList := node.ChildNodes;
  for i := 0 to nodeList.Count - 1 do
  begin
    strName := nodeList[i].NodeName;
    if nodeList[i].IsTextElement then //如果是元素
    begin
      showmess:= showmess + strName + ‘:‘ + NodeList[i].NodeValue + #13#10;
    end
    else if nodeList[i].HasChildNodes then //如果有子节点
    begin
      ReadXml(NodeList[i], showmess);
    end;
  end;
end;

procedure TForm1.btn1Click(Sender: TObject);
var
  sXML, showmess: string;
  ComInstrXML: IXMLDocument;
  mainNode: IXMLNode;
begin
   showmess:= ‘‘;
   sXML:= edt1.Text;
   sXML:= StringReplace(sXML, ‘UTF-8‘, ‘gbk‘, [rfReplaceAll]);
   try
     ComInstrXML:= LoadXMLData(sXML);
     mainNode:= ComInstrXML.DocumentElement;
     readXML(mainNode, showmess);

     ShowMessage(showmess);
   except
     on E: Exception do
     begin
       ShowMessage(E.Message);
     end;
   end;
end;

end.

var 
    aStr: String; 
begin 
    aStr := ‘This is a book, not a pen!‘; 
    ShowMessage(StringReplace (aStr, ‘a‘, ‘two‘, []));//This is two book, not a pen!只替换了第一个符合的字符串 
    ShowMessage(StringReplace (aStr, ‘a‘, ‘two‘, [rfReplaceAll]));//This is two book, not two pen!替换了所有符合的字符串 
    aStr := ‘This is a book, not A pen!‘; 
    ShowMessage(StringReplace (aStr, ‘a‘, ‘two‘, [rfReplaceAll]));//This is two book, not A pen!只替换了符合的字符串(小写a) 
    ShowMessage(StringReplace (aStr, ‘a‘, ‘two‘, [rfReplaceAll, rfIgnoreCase]));//This is two book, not two pen!不管大小写替换了所有符合的字符串
end;

showmess:= showmess + strName + ‘:‘ + NodeList[i].NodeValue + #13#10;