>

EqualUnoObjects Function

True āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻ•āĻ°ā§‡ āĻ¯āĻĻāĻŋ āĻ‰āĻ˛ā§āĻ˛ā§‡āĻ–āĻŋāĻ¤ āĻĻā§āĻ‡āĻŸāĻŋ Uno āĻŦāĻ¸ā§āĻ¤ā§ , āĻāĻ•āĻ‡ Uno āĻŦāĻ¸ā§āĻ¤ā§ āĻĻā§ƒāĻˇā§āĻŸāĻžāĻ¨ā§āĻ¤ āĻ¨āĻŋāĻ°ā§āĻĻā§‡āĻļ āĻ•āĻ°ā§‡ āĻĨāĻžāĻ•ā§‡āĨ¤

āĻ¸āĻŋāĻ¨āĻŸā§āĻ¯āĻžāĻ•ā§āĻ¸:


EqualUnoObjects( oObj1, oObj2 )

āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻŽāĻžāĻ¨:

Bool

āĻ‰āĻĻāĻžāĻšāĻ°āĻŖ:


    ' Copy of objects -> same instance
    oIntrospection = CreateUnoService( "com.sun.star.beans.Introspection" )
    oIntro2 = oIntrospection
    print EqualUnoObjects( oIntrospection, oIntro2 )
    ' Copy of structs as value -> new instance
    Dim Struct1 as new com.sun.star.beans.Property
    Struct2 = Struct1
    print EqualUnoObjects( Struct1, Struct2 )

Please support us!