Freigeben über

COMPOBJ( )-Funktion

  • Artikel

Vergleicht die Eigenschaften zweier Objekte und gibt Wahr (.T.) zurück, wenn ihre Eigenschaften und deren Werte identisch sind.

COMPOBJ(oExpression1, oExpression2)

Parameter

  • oExpression1, oExpression2
    Spezifizieren die zu vergleichenden Objekte. oExpression1 und oExpression2 können beliebige Ausdrücke wie Objektverweise, -variablen oder -Arrayelemente sein, die zu Objekten ausgewertet werden können.

Rückgabewerte

Logisch

Hinweise

COMPOBJ( ) gibt Falsch (.F.) zurück, wenn eines der Objekte eine Eigenschaft besitzt, die das andere Objekt nicht besitzt, oder wenn sich die beiden Objekte im Wert mindestens einer Eigenschaft unterscheiden.

Beispiel

Im folgenden Beispiel werden zwei Listenfelder namens lstMyList1 und lstMyList2 sowie ein Kombinationsfeld namens cmbMyCombo erstellt. Die Name-Eigenschaft der einzelnen Listenfelder wird angezeigt.

Mittels COMPOBJ( ) werden die Eigenschaften des ersten Listenfeldes mit denen des Kombinationsfeldes verglichen. Da sich viele der Eigenschaften unterscheiden, wird Falsch (.F.) ausgegeben. Mittels COMPOBJ( ) werden dann die Eigenschaften des ersten Listenfeldes mit denen des zweiten Listenfeldes verglichen. Da sich diese in der Name-Eigenschaft unterscheiden, wird Falsch (.F.) angezeigt. Nunmehr wird das zweite Listenfeld lstMyList2 durch das erste Listenfeld lstMyList1 ersetzt, und mit COMPOBJ( ) werden die Eigenschaften verglichen. Da deren Eigenschaften nun identisch sind, wird Wahr (.T.) ausgegeben.

lstMyList1 = CREATEOBJ('ListBox')  && Creates a ListBox
lstMyList2 = CREATEOBJ('ListBox')  && Creates a second ListBox
cmbMyCombo = CREATEOBJ('ComboBox')  && Creates a ComboBox
lstMyList1.Name = 'list1'
lstMyList2.Name = 'list2'

CLEAR
? lstMyList1.Name  && Displays List1 Name property
? lstMyList2.Name  && Displays List2 Name property

? COMPOBJ(lstMyList1, cmbMyCombo)     && Displays .F.
? COMPOBJ(lstMyList1, lstMyList2)     && Displays .F., different Names
lstMyList2.Name = lstMyList1.Name
? COMPOBJ(lstMyList1, lstMyList2)     && Displays .T., same properties

Siehe auch

CREATEOBJECT( ) | DEFINE CLASS | GETOBJECT( ) | SET CLASSLIB