(DataFlex) Demonstrate the XML NewChildInt2 Method

Demonstrates the XML NewChildInt2 method.

Note: This example requires Chilkat v9.5.0.64 or later.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoXml
    Integer i
    String sTemp1

    // Note: This example requires Chilkat v9.5.0.64 or later.

    Get Create (RefClass(cComChilkatXml)) To hoXml
    If (Not(IsComObjectCreated(hoXml))) Begin
        Send CreateComObject of hoXml
    End

    Set ComTag Of hoXml To "animal"

    Move 0 To i
    While (i < 10)
        // The first call (in the 1st loop iteration) automatically
        // creates the children in the path.
        // Each subsequent call finds the inner nodes in the path
        // already exist, but always adds a new child at the leaf,
        // even if it is a duplicate.
        Send ComNewChildInt2 To hoXml "bird|flightless|penguin|number" i
        Move (i + 1) To i
    Loop

    Get ComGetXml Of hoXml To sTemp1
    Showln sTemp1

    // Output:

    // 	<?xml version="1.0" encoding="utf-8" ?>
    // 	<animal>
    // 	    <bird>
    // 	        <flightless>
    // 	            <penguin>
    // 	                <number>0</number>
    // 	                <number>1</number>
    // 	                <number>2</number>
    // 	                <number>3</number>
    // 	                <number>4</number>
    // 	                <number>5</number>
    // 	                <number>6</number>
    // 	                <number>7</number>
    // 	                <number>8</number>
    // 	                <number>9</number>
    // 	            </penguin>
    // 	        </flightless>
    // 	    </bird>
    // 	</animal>
    // 


End_Procedure