| ■358 / 親階層) |
#197 イベント処理の整形ユーティリティ 第 3.9 版
|
□投稿者/ ONnoji -(2021/02/25(Thu) 15:33:50)
| #197 の拙作：イベント処理の整形ユーティリティ 第 3.9 版の、
INF_ObjectList.kev と INF_ObjectList.kex 共通 の虫が見つかりましたのでお知らせいたします。m(__)m
＜現象＞
フォームのセクションのオブジェクト数が２００個またはそれ以上の場合に、オブジェクトのツリーが抽出されない。
＜改修方法＞
一般プロシージャ：prcDimBottomGet を差し替えます。
【変更前】
手続き定義開始 prcDimBottomGet( 参照 文字列 &stringDim[], 参照 整数 &bottom )
変数宣言 自動，文字列｛ &icon, &title = "prcDimBottomGet( )", &msg ｝
変数宣言 自動，文字列｛ &string ｝
変数宣言 自動，整数 ｛ &i, &loop, &step = 1 ｝
&bottom = 0
&loop = #配列要素数( "stringDim" )
繰り返し &i = 1, &loop, &step
&string = #trim( #変数( "stringDim", &i ), 3 )
if ( &string = #u )
&bottom = &i - 1
繰り返し中止
end
繰り返し終了
手続き定義終了
【変更後】
手続き定義開始 prcDimBottomGet( 参照 文字列 &stringDim[], 参照 整数 &bottom )
変数宣言 自動，文字列｛ &icon, &title = "prcDimBottomGet( )", &msg ｝
変数宣言 自動，文字列｛ &string ｝
変数宣言 自動，整数 ｛ &i, &loop, &step = 1 ｝
&bottom = 0
&loop = #配列要素数( "stringDim" )
&string = #trim( #変数( "stringDim", &loop ), 3 )
if ( &string <> #u )
&bottom = &loop
else
繰り返し &i = 1, &loop, &step
&string = #trim( #変数( "stringDim", &i ), 3 )
if ( &string = #u )
&bottom = &i - 1
繰り返し中止
end
繰り返し終了
end
手続き定義終了
|
|
#197 イベント処理の整形ユーティリティ..
/ ONnoji (21/02/25(Thu) 15:33) #358 ←Now
上記ツリーを一括表示 / 上記ツリーをトピック表示