HasBase

指定された値が指定されたベースオブジェクトから派生したものである場合、0 以外の数値を返します。

HasBase := HasBase(Value, BaseObj)

パラメータ

Value

任意の値、任意の型。

BaseObj

型：オブジェクト

テストするベースオブジェクトの候補です。

戻り値

型：整数（ブーリアン）

この関数は、BaseObj が Value のベースオブジェクトのチェーン内にある場合は 1 (true) を返し、それ以外の場合は 0 (false) を返します。

備考

次のコードは、この機能とほぼ同等です：

MyHasBase(Value, BaseObj) {
    b := Value
    while b := ObjGetBase(b)
        if b = BaseObj
            return true
    return false
}

例えば、HasBase(Obj, Array.Prototype)は、Objが Array またはその派生クラスのインスタンスのときに真となります。これは、Obj is Arrayによって実行されるものと同じチェックです。ただし、インスタンスは他のインスタンスに基づくことができますが、isにはクラスが必要です。

HasBaseは、オブジェクトとプリミティブな値の両方を受け入れます。例えば、HasBase(1, 0.base)は真を返します。

関連

オブジェクト、Obj.Base、ObjGetBase、HasMethod、HasProp

例

thebase := {key: "value"}
derived := {base: thebase}
MsgBox HasBase(thebase, derived) ; 0
MsgBox HasBase(derived, thebase) ; 1