Saltar para o conteúdo principal
Versão: Próximo

OB Instance of

OB Instance of ( objeto ; classe ) -> Resultado

ParâmetroTipoDescrição
objetoObjectObjeto cuja classe vai ser testada
classeObjectClasse a qual vai testar a pertenência
ResultadoBooleanTrue se o objeto pertencer à classe especifica ou à uma classe child, senão false

Descrição

O comando OB Instance of devolve true se objeto pertencer à classe ou uma de suas classes filho, e em caso contrário false.

Se classe não for um objeto Classe válido, se devolve o erro -10745.

Exemplo

Criar a classe Polygon:

  //Classe: Polygon
 Class constructor
 var $1;$2 : Integer
 This.area:=$1*$2

Depois em um método, pode escrever:

 var $poly : Object
 var $instance : Boolean
 
 $poly:=cs.Polygon.new(4;3)
 
 $instance:=OB Instance of($poly;cs.Polygon)
  // true
 
 $instance:=OB Instance of($poly;4D.Object)
  // true 
 
 $instance:=OB Instance of($poly;cs.Circle)
  // false

Ver também

OB Class