IBM Lotus Symphony
|
Returnerer Sant hvis de to angitte Basic Uno-objektene representerer den samme Uno-objektforekomsten.
EqualUnoObjects( oObj1, oObj2 )
Bool
// Kopi av Objekter -> samme forekomst
oIntrospection = CreateUnoService( "com.sun.star.beans.Introspection" )
oIntro2 = oIntrospection
print EqualUnoObjects( oIntrospection, oIntro2 )
// Kopi av strukturer som verdi -> ny forekomst
Dim Struct1 as new com.sun.star.beans.Property
Strukt2 = Strukt1
print EqualUnoObjects( Strukt1, Strukt2 )