ENUMERATE( ) example

The following code uses ENUMERATE( ) to obtain an AssocArray filled with member names and types for an object reference. It then lists each member name, member type, member data type, and member value for each member of the object.

// Filename..: QuikList.PRG

// Parameters: oRef - Object reference to list.

// Usage.....: Set Procedure To My.WFM Additive

// ..........: f = New MyForm()

// ..........: Do QuikList With f

//

PARAMETERS oRef

PRIVATE cTemp, xTemp

LOCAL aa, cMember

Try

  aa = Enumerate(oRef)        // Enumerate the passed object

  cMember = aa.FirstKey        // Get first member name

  Do While Not Empty(cMember)

    ? cMember            // Display the member name

    ?? aa[cMember] At 30       // Display the member type

    cTemp = "oRef." + cMember

    xTemp = &cTemp.          // Get the value of the member

    ?? Type("xTemp") At 33       // Display the data type

    If xTemp # Null

       ?? Transform(xTemp, "@T") At 37  // Display the member value

    EndIf

    cMember = aa.NextKey(cMember)   // Get next member name

  EndDo

Catch(exception e)

   MsgBox(e.Message, "QuikList")    // Show any error that occurred

EndTry

// EOF: QuikList.PRG