unit XML;

interface

uses
  XMLDoc, XMLIntf, XMLDom, SysUtils, Variants;

type
  TNode = class
  private
    _XML: IXMLDocument;
    FXML: TXMLDocument;
    FrootNode: IXMLNode;
    _vPropName: string;
    function FindNode(const NodeName: string): IXMLNode;
    function GetAsString: string;
    procedure SetAsString(Value: string);
    Function GetAsInteger: Integer;
    procedure SetAsInteger(value: integer);
    function GetAsChildNode: IXMLNode;
    procedure SetAsChildNode(Value: IXMLNode);
  public

    property AsChildNode: IXMLNode read GetAsChildNode write SetAschildNode;
    property AsInteger: Integer read GetAsInteger write SetAsInteger;
    property AsString: string read GetAsString write SetAsString;
    procedure del;
    constructor create;
    destructor destroy; override;
  end;

type
  TXML = class(TNode)
  private
    _XMLStr: String;
  public
    function Text: string;
    function NodeByName(NodeName: string): TNode;
    procedure Init;
    constructor create; overload;
    constructor create(XMLStr: string); overload;
    destructor destroy; override;
  end;

implementation

uses
  Xml.omnixmldom;

{ TXML }

constructor TXML.create;
begin
  Inherited;


end;

constructor TXML.create(XMLStr: string);
begin

end;




destructor TXML.destroy;
begin

  inherited;
end;

procedure TXML.Init;
begin
  _XMLStr := _XML.XML.Text;
end;

function TNode.FindNode(const NodeName: string): IXMLNode;
var
  _RootNode: IXMLNode;
begin
  result := nil;
  _RootNode := _XML.DocumentElement;
  if _RootNode = nil then
  begin
    raise Exception.Create('没有根节点');
    exit;
  end;
  result := _RootNode.ChildNodes.FindNode(NodeName);
end;

function TXML.NodeByName(NodeName: string): TNode;
begin
  _vPropName := NodeName;
  FRootNode := FindNode(NodeName);
  result := Self;
end;

function TXML.Text: string;
begin
  result := _XMLStr;
end;

{ TNode }

constructor TNode.create;
var
  _RootNode: IXMLNode;
begin
  FXML := TXMLDocument.Create(nil);
  _XML := FXML;
  FXML.DOMVendor := GetDOMVendor('Omni XML');
  _XML.Active := True;
  _RootNode := _XML.CreateNode('xml');
  _XML.DocumentElement := _RootNode;
end;

procedure TNode.del;
var
  NodeList: IXMLNodeList;
  _Node: IXMLNode;
begin
  NodeList := _XML.DocumentElement.ChildNodes;
  _Node := NodeList.FindNode(_vPropName);
  NodeList.Remove(_Node);
end;


destructor TNode.destroy;
begin

end;

function TNode.GetAsChildNode: IXMLNode;
begin
  result := FRootNode;
end;

function TNode.GetAsInteger: Integer;
var
  tmp: string;
begin
  tmp := VarToStrDef(FRootNode.NodeValue, '0');
  if not TryStrToInt(tmp, result) then
    raise Exception.Create('不是数值');
end;

function TNode.GetAsString: string;
var
  _TmpNode: IXMLNode;
begin
  result := VarToStrDef(FrootNode.NodeValue, '');
end;

procedure TNode.SetAsChildNode(Value: IXMLNode);
var
  _RootNode: IXMLNode;
begin
  _RootNode := Value;
  if FRootNode = nil then
  begin
    _RootNode := _XML.CreateNode(_vPropName);
    FRootNode := _XML.DocumentElement;
    _RootNode.ChildNodes.Add(Value);
    FRootNode.ChildNodes.Add(_RootNode)
  end
  else begin
    FRootNode.ChildNodes.Add(_RootNode);
  end;
end;

procedure TNode.SetAsInteger(value: integer);
var
  _ChildNode: IXMLNode;
  _rootNode: IXMLNode;
begin
  if FRootNode = nil then
  begin
    _RootNode := _XML.CreateNode(_vPropName);
    FRootNode := _XML.DocumentElement;
    _ChildNode := _XML.CreateNode(IntToStr(Value), ntText);
    _RootNode.ChildNodes.Add(_ChildNode);
    FRootNode.ChildNodes.Add(_RootNode)
  end
  else begin
    FRootNode.Text := IntToStr(value);
  end;

end;

procedure TNode.SetAsString(Value: string);
var
  _ChildNode: IXMLNode;
  _rootNode: IXMLNode;
begin
  if FrootNode = nil then
  begin
    _RootNode := _XML.CreateNode(_vPropName);
    FRootNode := _XML.DocumentElement;
    _ChildNode := _XML.CreateNode(Value, ntCData); //_vPropName);
    _RootNode.ChildNodes.add(_ChildNode);
    FrootNode.ChildNodes.Add(_RootNode);

  end
  else begin

    FRootNode.Text := Value;
  end;
end;


end.