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.
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