OB Instance of

4D v20 R7

OB Instance of


OB Instance of ( objeto ; classe ) -> Resultado

Parâmetro	Tipo	Descrição
objeto	Objeto	Objeto cuja classe vai ser testada
classe	Objeto	Classe a qual vai testar a pertenência
Resultado	Booleano	True 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.

Nota: cada vez que se modificam as fontes de uma classe, se gera um novo objeto Class. Como os objetos instanciados previamente não pertencem à nova classe, OB Instance of devolverá false se for passado um objeto Class distinto do utilizado para a instanciação.

Exemplo

Criar a classe Polygon:

  //Classe: Polygon

 Class constructor

 C_LONGINT($1;$2)

 This.area:=$1*$2

Depois em um método, pode escrever:

 C_OBJECT($poly)

 C_BOOLEAN($instance)

 

 $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