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

Синтаксис:

COMPOBJ(oExpression1, oExpression2)

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

Результат:
Логический

Комментарии:
Функция COMPOBJ( ) возвращает значение "ложь" (.F.), если какой-либо объект обладает свойством, которого лишен другой объект, или если свойства объектов идентичны, но значения одного или нескольких свойств различаются.

Пример:

* В примере создаются два объекта управления ListBoxes с именами
* lstMyList1 и lstMyList2, и ComboBox с именем cmbMyCombo Выводится на
* экран свойство Name каждого объекта ListBox
* Функция COMPOBJ( ) используется для сравнения свойств первого из
* объектов ListBox со свойствами объекта ComboBox. Так как многие из их
* свойств различны, высвечивается "ложь" (.F.). Затем сравниваются
* свойства первого и второго объекта ListBox. Свойства Names у них
* отличаются, поэтому результатом COMPOBJ( ) будет "ложь" (.F.).
* Свойства Names объекта lstMyList2 заменяются на свойства Names
* oбъекта lstMyList1. При повторном сравнении COMPOBJ( ) возвращает
* "истина"(.T.).

lstMyList1 = CREATEOBJ('ListBox')  && Creates a ListBox
lstMyList2 = CREATEOBJ('ListBox')  && Creates a second ListBox
cmbMyCombo = CREATEOBJ('ComboBox')  && Creates a ComboBox

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