4D Doc Center : RESOLVE POINTER

4D v14.3

RESOLVE POINTER


RESOLVE POINTER ( pointer ; varName ; tableNum ; fieldNum )

引数	型	説明
pointer	ポインター	参照オブジェクトを取得するポインタ
varName	文字	参照された変数の名前または空の文字列
tableNum	倍長整数	参照されたテーブルまたは配列要素の番号または 0 あるいは -1
fieldNum	倍長整数	参照されたフィールドの番号または 0

説明

RESOLVE POINTER コマンドは、pointer式によって参照されるオブジェクトの情報を取得し、引数varName、tableNum、fieldNumに返します。

参照されるオブジェクトの種類によって、RESOLVE POINTERコマンドは、以下のような値を返します:

参照されるオブジェクト	引数
	varName	tableNum	fieldNum
なし (NILポインタ)	"" (空の文字列)	0	0
変数	変数名	-1	0
配列	配列名	-1	0
配列要素	配列名	要素番号	0
テーブル	"" (空の文字列)	テーブル番号	0
フィールド	"" (空の文字列)	テーブル番号	フィールド番号

Notes:

pointerに渡す値がポインタ式でない場合には、シンタックスエラーが発生します。
RESOLVE POINTER コマンドは、ローカル変数のポインタには使用できません。何故なら、ローカル変数は、同じ名前で異なる場所で定義できるため、目的のローカル変数を特定することができないからです。

例題 1

フォーム内で、v1, v2... v100という名前で入力可能な変数100個を作成します。これを実行するには、以下のような手順を実行します:

a. 入力可能な変数を1つ作成し、vと名付ける。

b. オブジェクトのプロパティを設定する。

c. オブジェクトに以下のメソッドを作成する:

DoSomething(Self) ` DoSomething はデータベースのプロジェクトメソッド

d. この時点で、必要な回数だけ変数を複製することも、フォームエディタの「グリッドで変数作成」機能を使用することもできる。

e. DoSomethingメソッド内で、このメソッドが呼び出される変数のインデックスを知る必要がある場合には、以下のように記述する:

 RESOLVE POINTER($1;$vsVarName;$vlTableNum;$vlFieldNum)

 $vlVarNum:=Num(Substring($vsVarName;2))

この方法でフォームを作成することによって、100個の変数のためのメソッドを一度書くだけで済むことに注目してください。DoSomething (1), DoSomething (2)...,DoSomething (100)を作成する必要はありません。

例題 2

デバッグのために、メソッドへの2番目の引数 ($2) がテーブルへのポインタであることを確認する必要があるとします。この場合、メソッドの最初で、以下のように記述します:

  ` ...

 If(<>DebugOn)

    RESOLVE POINTER($2;$vsVarName;$vlTableNum;$vlFieldNum)

    If(Not(($vlTableNum>0)&($vlFieldNum=0)&($vsVarName="")))

  ` 警告: ポインタはテーブルへの参照ではない

       TRACE

    End if

 End if

  ` ...

例題 3

DRAG AND DROP PROPERTIES コマンドの例を参照.