Fluent XML [3]

Few days ago I was answering some OmniXML related question on Slovenian Delphi forum and I tried using GpFluentXML to provide the answer. The emphasis is on “tried” – my unit was just not powerful enough to be useful in this case. So what else could I do besides improving GpFluentXML? Modifications were very small. I added two overloads (AddChild and AddSibling) which allow setting node value. Implementation is equally trivial as everything else inside the fluent XML unit. function TGpFluentXmlBuilder.AddChild(const name: XmlString; value: Variant): IGpFluentXmlBuilder; begin Result := AddChild(name); SetTextChild(fxbActiveNode, XMLVariantToStr(value)); end; { TGpFluentXmlBuilder.AddChild } (And similar for AddSibling.) Now I (and you and everybody else) can write such code: var data : TData; xmlBuilder: IGpFluentXmlBuilder; begin xmlBuilder := CreateFluentXml .AddProcessingInstruction('xml', 'version="1.0" encoding="UTF-8"') .AddChild('DataTransfer') ['xsi:noNamespaceSchemaLocation', 'http://www.tempuri/schema.xsd'] ['xmlns:xsi', 'http://www.w3.org/2001/XMLSchema-instance'] .AddChild('Dokument'); for data in GetData do begin xmlBuilder .Mark .AddChild('ID', data.ID) .AddSibling(DocumentInfo') .AddChild('GeneratedBy', data.Originator) .AddSibling('Title', data.Title) .Return; end; end; A non-obvious trick – .Mark and .Return are used inside the loop to store/restore proper level at which the child nodes must be inserted. Full GpFluentXML source is available at http://17slon.com/blogs/gabr/files/GpFluentXml.pas. --- Published under the Creative Commons Attribution 3.0 license