<unit name="ok_nested_types.pas">
  <description><abstract>Test case for Delphi nested types</abstract><detailed>  </detailed></description>
  <constant name="GlobalConst = 123456;">
    <description><detailed>Description of <code>GlobalConst</code></detailed></description>
  </constant>
  <structure name="TOuterClass" name_with_generic="TOuterClass" type="class">
    <description><abstract><code>TOuterClass</code> contains nested classes, records, types and constants.</abstract></description>
    <ancestor name="TObject" declaration="TObject" />
    <function name="OuterPublicProc" type="procedure" declaration="procedure OuterPublicProc;">
      <description><detailed>Description of <code>OuterPublicProc</code></detailed></description>
    </function>
    <variable name="const OuterConst1 = 'Blah1';">
      <description><detailed>Description of <code>OuterConst1</code></detailed></description>
    </variable>
    <variable name="const OuterConst2 = 'Blah2';">
      <description><detailed>Description of <code>OuterConst2</code></detailed></description>
    </variable>
  </structure>
</unit>
