OB Class

4D v20 R7

OB Class

OB Class コマンドはobject 引数のクラスを返します。4D では、全てのオブジェクトはオブジェクトはオブジェクトクラスから継承しています。引数のオブジェクトが既存のオブジェクトでなかった場合、OB Class はnull を返します。

Polygon というクラスを作成した場合を考えます:

  //Class: Polygon

 

 Class constructor

 C_LONGINT($1;$2)

 This.area:=$1*$2

その後、メソッド内において、以下のように書くことができます:

 C_OBJECT($poly;$class)

 $poly:=cs.Polygon.new(4;3)

 

 $class:=OB Class($poly)

  //$class にはClass: Polygon が格納される

参照