type Document = class(OpenXmlElement) public function Create();overload; function Create(_node: XmlNode);overload; function Create(_parent: tslobj; _prefix: string; _local_name: string);overload; function Init();override; function InitAttributes();override; function InitChildren();override; function InitNode(_node: XmlNode);override; function Copy(_obj: Document);override; property XmlnsWpc read ReadXmlAttrXmlnsWpc write WriteXmlAttrXmlnsWpc; property XmlnsW15 read ReadXmlAttrXmlnsW15 write WriteXmlAttrXmlnsW15; property XmlnsW16Cex read ReadXmlAttrXmlnsW16Cex write WriteXmlAttrXmlnsW16Cex; property XmlnsW16Cid read ReadXmlAttrXmlnsW16Cid write WriteXmlAttrXmlnsW16Cid; property XmlnsW16 read ReadXmlAttrXmlnsW16 write WriteXmlAttrXmlnsW16; property XmlnsW16Du read ReadXmlAttrXmlnsW16Du write WriteXmlAttrXmlnsW16Du; property XmlnsW16sdtdh read ReadXmlAttrXmlnsW16sdtdh write WriteXmlAttrXmlnsW16sdtdh; property XmlnsW16se read ReadXmlAttrXmlnsW16se write WriteXmlAttrXmlnsW16se; property XmlnsWpg read ReadXmlAttrXmlnsWpg write WriteXmlAttrXmlnsWpg; property XmlnsWpi read ReadXmlAttrXmlnsWpi write WriteXmlAttrXmlnsWpi; property XmlnsWne read ReadXmlAttrXmlnsWne write WriteXmlAttrXmlnsWne; property XmlnsWps read ReadXmlAttrXmlnsWps write WriteXmlAttrXmlnsWps; property McIgnorable read ReadXmlAttrMcIgnorable write WriteXmlAttrMcIgnorable; function ReadXmlAttrXmlnsWpc(); function WriteXmlAttrXmlnsWpc(_value); function ReadXmlAttrXmlnsW15(); function WriteXmlAttrXmlnsW15(_value); function ReadXmlAttrXmlnsW16Cex(); function WriteXmlAttrXmlnsW16Cex(_value); function ReadXmlAttrXmlnsW16Cid(); function WriteXmlAttrXmlnsW16Cid(_value); function ReadXmlAttrXmlnsW16(); function WriteXmlAttrXmlnsW16(_value); function ReadXmlAttrXmlnsW16Du(); function WriteXmlAttrXmlnsW16Du(_value); function ReadXmlAttrXmlnsW16sdtdh(); function WriteXmlAttrXmlnsW16sdtdh(_value); function ReadXmlAttrXmlnsW16se(); function WriteXmlAttrXmlnsW16se(_value); function ReadXmlAttrXmlnsWpg(); function WriteXmlAttrXmlnsWpg(_value); function ReadXmlAttrXmlnsWpi(); function WriteXmlAttrXmlnsWpi(_value); function ReadXmlAttrXmlnsWne(); function WriteXmlAttrXmlnsWne(_value); function ReadXmlAttrXmlnsWps(); function WriteXmlAttrXmlnsWps(_value); function ReadXmlAttrMcIgnorable(); function WriteXmlAttrMcIgnorable(_value); public // Attributes XmlAttrXmlnsWpc: OpenXmlAttribute; XmlAttrXmlnsW15: OpenXmlAttribute; XmlAttrXmlnsW16Cex: OpenXmlAttribute; XmlAttrXmlnsW16Cid: OpenXmlAttribute; XmlAttrXmlnsW16: OpenXmlAttribute; XmlAttrXmlnsW16Du: OpenXmlAttribute; XmlAttrXmlnsW16sdtdh: OpenXmlAttribute; XmlAttrXmlnsW16se: OpenXmlAttribute; XmlAttrXmlnsWpg: OpenXmlAttribute; XmlAttrXmlnsWpi: OpenXmlAttribute; XmlAttrXmlnsWne: OpenXmlAttribute; XmlAttrXmlnsWps: OpenXmlAttribute; XmlAttrMcIgnorable: OpenXmlAttribute; // Children Body: Body; end; function Document.Create();overload; begin {self.}Create(nil, "w", "document"); end; function Document.Create(_node: XmlNode);overload; begin class(OpenXmlElement).Create(_node: XmlNode); end; function Document.Create(_parent: tslobj; _prefix: string; _local_name: string);overload; begin class(OpenXmlElement).Create(_parent, _prefix, _local_name); end; function Document.Init();override; begin {self.}XmlAttrXmlnsWpc := new OpenXmlAttribute("xmlns", "wpc", nil); {self.}XmlAttrXmlnsW15 := new OpenXmlAttribute("xmlns", "w15", nil); {self.}XmlAttrXmlnsW16Cex := new OpenXmlAttribute("xmlns", "w16cex", nil); {self.}XmlAttrXmlnsW16Cid := new OpenXmlAttribute("xmlns", "w16cid", nil); {self.}XmlAttrXmlnsW16 := new OpenXmlAttribute("xmlns", "w16", nil); {self.}XmlAttrXmlnsW16Du := new OpenXmlAttribute("xmlns", "w16du", nil); {self.}XmlAttrXmlnsW16sdtdh := new OpenXmlAttribute("xmlns", "w16sdtdh", nil); {self.}XmlAttrXmlnsW16se := new OpenXmlAttribute("xmlns", "w16se", nil); {self.}XmlAttrXmlnsWpg := new OpenXmlAttribute("xmlns", "wpg", nil); {self.}XmlAttrXmlnsWpi := new OpenXmlAttribute("xmlns", "wpi", nil); {self.}XmlAttrXmlnsWne := new OpenXmlAttribute("xmlns", "wne", nil); {self.}XmlAttrXmlnsWps := new OpenXmlAttribute("xmlns", "wps", nil); {self.}XmlAttrMcIgnorable := new OpenXmlAttribute("mc", "Ignorable", nil); {self.}Body := new Body(self, {self.}Prefix, "body"); end; function Document.InitAttributes();override; begin attributes_ := array( {self.}XmlAttrXmlnsWpc, {self.}XmlAttrXmlnsW15, {self.}XmlAttrXmlnsW16Cex, {self.}XmlAttrXmlnsW16Cid, {self.}XmlAttrXmlnsW16, {self.}XmlAttrXmlnsW16Du, {self.}XmlAttrXmlnsW16sdtdh, {self.}XmlAttrXmlnsW16se, {self.}XmlAttrXmlnsWpg, {self.}XmlAttrXmlnsWpi, {self.}XmlAttrXmlnsWne, {self.}XmlAttrXmlnsWps, {self.}XmlAttrMcIgnorable, ); end; function Document.InitChildren();override; begin child_elements_ := array( 0: {self.}Body, ); sorted_child_ := array( "": -1, {self.}Body.ElementName: 0, ); end; function Document.InitNode(_node: XmlNode);override; begin if ifObj({self.}XmlNode) then for k,v in child_elements_ do v.InitNode(nil); {self.}XmlNode := ifObj(_node) ? _node : nil; node := ifObj(_node) ? _node.FirstChild() : nil; flag := false; if ifnil(child_elements_[0]) and length(child_elements_) > 0 then begin flag := true; arr := child_elements_; child_elements_ := array(); end pre := ifString({self.}Prefix) ? {self.}Prefix + ":" : ""; while ifObj(node) do begin node_name := node.GetName(); pos := sorted_child_[node_name]; if ifnil(pos) or pos = -1 then begin obj := nil; case node_name of end; if ifObj(obj) then obj.InitNode(node); end else if flag then begin obj := arr[pos]; obj.InitNode(node); child_elements_[length(child_elements_)] := obj; end else begin child_elements_[pos].InitNode(node); end node := node.NextElement(); end end; function Document.Copy(_obj: Document);override; begin if not ifnil(_obj.XmlAttrXmlnsWpc.Value) then {self.}XmlAttrXmlnsWpc.Value := _obj.XmlAttrXmlnsWpc.Value; if not ifnil(_obj.XmlAttrXmlnsW15.Value) then {self.}XmlAttrXmlnsW15.Value := _obj.XmlAttrXmlnsW15.Value; if not ifnil(_obj.XmlAttrXmlnsW16Cex.Value) then {self.}XmlAttrXmlnsW16Cex.Value := _obj.XmlAttrXmlnsW16Cex.Value; if not ifnil(_obj.XmlAttrXmlnsW16Cid.Value) then {self.}XmlAttrXmlnsW16Cid.Value := _obj.XmlAttrXmlnsW16Cid.Value; if not ifnil(_obj.XmlAttrXmlnsW16.Value) then {self.}XmlAttrXmlnsW16.Value := _obj.XmlAttrXmlnsW16.Value; if not ifnil(_obj.XmlAttrXmlnsW16Du.Value) then {self.}XmlAttrXmlnsW16Du.Value := _obj.XmlAttrXmlnsW16Du.Value; if not ifnil(_obj.XmlAttrXmlnsW16sdtdh.Value) then {self.}XmlAttrXmlnsW16sdtdh.Value := _obj.XmlAttrXmlnsW16sdtdh.Value; if not ifnil(_obj.XmlAttrXmlnsW16se.Value) then {self.}XmlAttrXmlnsW16se.Value := _obj.XmlAttrXmlnsW16se.Value; if not ifnil(_obj.XmlAttrXmlnsWpg.Value) then {self.}XmlAttrXmlnsWpg.Value := _obj.XmlAttrXmlnsWpg.Value; if not ifnil(_obj.XmlAttrXmlnsWpi.Value) then {self.}XmlAttrXmlnsWpi.Value := _obj.XmlAttrXmlnsWpi.Value; if not ifnil(_obj.XmlAttrXmlnsWne.Value) then {self.}XmlAttrXmlnsWne.Value := _obj.XmlAttrXmlnsWne.Value; if not ifnil(_obj.XmlAttrXmlnsWps.Value) then {self.}XmlAttrXmlnsWps.Value := _obj.XmlAttrXmlnsWps.Value; if not ifnil(_obj.XmlAttrMcIgnorable.Value) then {self.}XmlAttrMcIgnorable.Value := _obj.XmlAttrMcIgnorable.Value; {self.}Body.Copy(_obj.Body); end; function Document.ReadXmlAttrXmlnsWpc(); begin return {self.}XmlAttrXmlnsWpc.Value; end; function Document.WriteXmlAttrXmlnsWpc(_value); begin {self.}XmlAttrXmlnsWpc.Value := _value; end; function Document.ReadXmlAttrXmlnsW15(); begin return {self.}XmlAttrXmlnsW15.Value; end; function Document.WriteXmlAttrXmlnsW15(_value); begin {self.}XmlAttrXmlnsW15.Value := _value; end; function Document.ReadXmlAttrXmlnsW16Cex(); begin return {self.}XmlAttrXmlnsW16Cex.Value; end; function Document.WriteXmlAttrXmlnsW16Cex(_value); begin {self.}XmlAttrXmlnsW16Cex.Value := _value; end; function Document.ReadXmlAttrXmlnsW16Cid(); begin return {self.}XmlAttrXmlnsW16Cid.Value; end; function Document.WriteXmlAttrXmlnsW16Cid(_value); begin {self.}XmlAttrXmlnsW16Cid.Value := _value; end; function Document.ReadXmlAttrXmlnsW16(); begin return {self.}XmlAttrXmlnsW16.Value; end; function Document.WriteXmlAttrXmlnsW16(_value); begin {self.}XmlAttrXmlnsW16.Value := _value; end; function Document.ReadXmlAttrXmlnsW16Du(); begin return {self.}XmlAttrXmlnsW16Du.Value; end; function Document.WriteXmlAttrXmlnsW16Du(_value); begin {self.}XmlAttrXmlnsW16Du.Value := _value; end; function Document.ReadXmlAttrXmlnsW16sdtdh(); begin return {self.}XmlAttrXmlnsW16sdtdh.Value; end; function Document.WriteXmlAttrXmlnsW16sdtdh(_value); begin {self.}XmlAttrXmlnsW16sdtdh.Value := _value; end; function Document.ReadXmlAttrXmlnsW16se(); begin return {self.}XmlAttrXmlnsW16se.Value; end; function Document.WriteXmlAttrXmlnsW16se(_value); begin {self.}XmlAttrXmlnsW16se.Value := _value; end; function Document.ReadXmlAttrXmlnsWpg(); begin return {self.}XmlAttrXmlnsWpg.Value; end; function Document.WriteXmlAttrXmlnsWpg(_value); begin {self.}XmlAttrXmlnsWpg.Value := _value; end; function Document.ReadXmlAttrXmlnsWpi(); begin return {self.}XmlAttrXmlnsWpi.Value; end; function Document.WriteXmlAttrXmlnsWpi(_value); begin {self.}XmlAttrXmlnsWpi.Value := _value; end; function Document.ReadXmlAttrXmlnsWne(); begin return {self.}XmlAttrXmlnsWne.Value; end; function Document.WriteXmlAttrXmlnsWne(_value); begin {self.}XmlAttrXmlnsWne.Value := _value; end; function Document.ReadXmlAttrXmlnsWps(); begin return {self.}XmlAttrXmlnsWps.Value; end; function Document.WriteXmlAttrXmlnsWps(_value); begin {self.}XmlAttrXmlnsWps.Value := _value; end; function Document.ReadXmlAttrMcIgnorable(); begin return {self.}XmlAttrMcIgnorable.Value; end; function Document.WriteXmlAttrMcIgnorable(_value); begin {self.}XmlAttrMcIgnorable.Value := _value; end;