Nice bit of code to format an xml string

Question

Anyone got a ready made function that will take an XML string and return a correctly indented string?

eg

A

        

Answer 1

The RTL has FormatXMLData in XMLDoc.pas that accepts and returns strings.