Сравнивает свойства двух объектов и возвращает Истину (.T). если их свойства и значения свойств идентичны. 

COMPOBJ(oExpression1, oExpression2)

Параметры

oExpression1 , oExpression2

Определяют объекты для сравнения. oExpression1 и oExpression2 могут быть любыми выражениями, которые относятся к объектам, типа объектных ссылок, объектных переменных, или объектных элементов массива.

Возвращаемое значение

Logical

Замечания

COMPOBJ( ) возвращает Ложь (.F.), если объект имеет свойство, которое другой объект не имеет, или если, объекты имеют идентичные свойства, но значения одного или более свойств отличаются.

Пример

В следующем примере создаются два ListBox'а названные как lstMyList1 и lstMyList2 и ComboBox названный как cmbMyCombo . Выводится Свойство Имени каждого ListBox'а.

COMPOBJ( ) используется, чтобы сравнить свойства первого ListBox'а со свойствами ComboBox'а. Поскольку многие из свойств не совпадают, выводится ложь .F.. Затем COMPOBJ( ) используется для сравнивания свойства первого ListBox'а со свойствами второго ListBox'а. Поскольку свойство Имени являются другим, выводится .F.. Свойство Второго ListBox'а lstMyList2 заменено свойством первого ListBox'а lstMyList1 с использованием COMPOBJ( ) для сравнения свойств. Поскольку их свойства идентичны, выводится .T..

Скопировать код 
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

См. Также