JCL_frm_isExist

/ JCL_frm / By

フォームが存在するかを確認する。

使い方
$exist:=JCL_frm_isExist($tblPtr; $form_name)

引数
$1: テーブルポインタ
$2: フォーム名

//JCL_frm_isExist
//20220425 hisa wat
//フォームがあるかどうか、確認する

C_POINTER($1; $tblPtr)
$tblPtr:=$1
C_TEXT($2; $form_name)
$form_name:=$2
C_BOOLEAN($0; $exist)
$exist:=False
C_LONGINT($index)
ARRAY TEXT($arynames; 0)

FORM GET NAMES($tblPtr->; $arynames)

$index:=Find in array($arynames; $form_name)
If ($index#-1)
	$exist:=True
	
End if 

$0:=$exist

関連メソッド：JCL_tbl_GetPrefix_fromStructure, JCL_tbl_GetNumber