Ｃｈａｐｔｅｒ４． 拡張関数

４.２ システム関数

関数名
S@KANJICHK
機能
指定の文字が全角文字であるか調べる。
書式
int S@KANJICHK()
《パラメーター》
なし
戻り値 説明
int ０：全角文字ではない
１：全角文字である
解説
指定した文字が全角文字の先頭であるかを調べる。
全角文字(２バイト)は半角(１バイト)の２倍のサイズを持つ。全角文字の先頭１バイトを本関数で調べることで全角であるかを調べることができる。
用例
"ABCあDE"の中で全角文字の１バイト目を調べる。
CH = G@SETUP( 400, 400, 16, 1 )
MOJI$="ABCあDE"
FOR I=1 TO 7
  IF 1=S@KANJICHK(MID(MOJI$,I,1)) THEN
    G@PRINT( CH, 0, I*20, STR(I)+"は全角の１バイト目です" )
  ELSE
    G@PRINT( CH, 0, I*20, STR(I)+"は半角です" )
  ENDIF
NEXT
LOOP
  G@FLIP()
ENDLOOP