Iterating through all properties of an object

Question

Question

Peter Steiwer · Dec 12, 2016

#Code Snippet #Object Data Model #Caché #InterSystems IRIS

Is there a better way to iterate through all properties of an object than the following? Perhaps without needing to open a definition of the class but directly against the object?


SAMPLES>set t=##class(HoleFoods.Transaction).%OpenId(1)                          
SAMPLES>set def=##class(%Dictionary.ClassDefinition).%OpenId("HoleFoods.Transaction")
SAMPLES>for i=1:1:def.Properties.Count() {  w def.Properties.GetAt(i).Name_":"_$property(t,def.Properties.GetAt(i).Name),!  }
Actual:0
AmountOfSale:4.95
Channel:2
Comment:
DateOfSale:62373
Discount:0
Latitude:
Longitude:
Outlet:35@HoleFoods.Outlet
Product:37@HoleFoods.Product
TargetAmount:
UnitsSold:1
ZipCode:

Discussion (6)1

Log in or sign up to continue

Eugene Karataev · Dec 13, 2016

Better way - %Library.CompiledClass instead of %Dictionary.ClassDefinition. Cache creates objects by %Library.CompiledClass which ar image of %Dictionary.ClassDefinition on compilation moment.

2 0

score 2 · Answer 1 · 2016-12-12T18:48:17-05:00

For debugging or programmatic purposes? If debugging / interactive you can just zwrite the variable to see the properties.

score 0 · Answer 2 · 2016-12-12T18:58:27-05:00

For the programmatic purpose of comparing two instances of the same object (I was hoping to keep the use case separate from this post in order to get a good generic example of iterating through properties of an object - but I can go into more details if needed).

score 1 · Answer 3 · 2016-12-13T04:24:39-05:00

Dmitry Maslennikov · Dec 13, 2016

Look at this article here. It helps you to write some method in this class for this task.

1 0

score 0 · Answer 4 · 2016-12-13T12:29:03-05:00

A couple ideas

If it's for debugging I use $System .OBJ.Dump(oRef)

If it's in application code I ran across something that looked like

While prop '= "" {
// Use global lookup instead of %Dictionary.Class query so users don't need privileges on that table
Set tPropClass = $$$comMemberKeyGet(sourceClass,$$$cCLASSproperty,prop,$$$cPROPtype)

score 1 · Answer 5 · 2016-12-13T17:09:12-05:00

Eduard Lebedyuk · Dec 13, 2016

Another relevant discussion.

1 0