VarIsBoolean メソッド
VarIsBooleanメソッドは、対象のバリアントをブール値に変換できる場合はTrueのブール値を、できない場合はFalseのブール値を返します。
構文は以下のとおりです。
VarIsBoolean( Subject )
以下は、変数がブール値であるかどうかを確認するプロパティ・ルーチンです。
Ptyroutine Name(Set_uSignalSelection)
Define_Map For(*input) Class(*variant) Name(#lcVariant)
If Cond(VarIsBoolean( #lcVariant ) *EQ True)
Execute Subroutine(FP_SETB) With_Parms(#USE_NAME uSignalSelection 1 #USE_OCUR #lclVariant.Boolean)
Else
Execute Subroutine(FP_SET) With_Parms(#USE_NAME uSignalSelection 1 #USE_OCUR #LCLVARIANT.String)
Endif