IBM Lotus Symphony
|
Vracia hodnotu true, ak dva špecifikované objekty Uno v jazyku Basic predstavujú tú istú inštanciu objektu Uno.
EqualUnoObjects( oobjekt_1, oobjekt_2 )
Typ Bool
// Kopírovanie objektov -> rovnaká inštancia
oIntrospection = CreateUnoService( "com.sun.star.beans.Introspection" )
oIntro2 = oIntrospection
print EqualUnoObjects( oIntrospection, oIntro2 )
// Kopírovanie štruktúr ako hodnota -> nová inštancia
Dim Struct1 as new com.sun.star.beans.Property
Struct2 = Struct1
print EqualUnoObjects( Struct1, Struct2 )