Return data from every object in a dbView: Difference between revisions

You can use an array to hold the ObjectID of each object.  Then loop thru the array and ask the property of each object.

  // outside the dbview:

  Object oMyViewObjects is an Array

     Set Value of hoArray Item (Item_Count(hoArray)) to (Object_ID(Self))

  End_Procedure

====Using Broadcast send====

In global scope:

  Procedure CallbackReportExistance For cObject Integer iMsg Handle hoId

     Send iMsg to hoID Self

  End_Procedure // CallbackReportExistance

In local scope:

  Procedure AddObject Handle hoObject

     Move hoObject to ghoObject[SizeOfArray(ghoObject)]

   

  Broadcast Send CallbackReportExistance of hoView msg_AddObject Self

====Using Broadcast get====

Something like this:

  Procedure AddProperty ByRef Handle[] hoaObject ByRef Integer[] iaProperty

     Move Self to hoaObject[SizeOfArray(hoaObject)]

  Broadcast Send MyProcedure

====External links====