varinit.hsp

sample\new37\varinit.hsp » Plain Format

	;
	;	型固定変数サンプル
	;
	;
#use strict		; 未初期化の変数は使用できない
#varint key		; 変数keyをint型に固定する(この宣言が無いとエラーになります)
#varstr mon,akak	; 変数mon,akakをstr型に固定する
#varlabel lab		; 変数labをlabel型に固定する

stick key

mon="1,2,3,4"
getstr akak,mon,0,','	; 変数akakは#varstrで初期化されています
mes "変数="+akak

;sdim key,64		; 型の変わる変数初期化、この行を有効にするとエラーになります

;dim akak,16		; 型の変わる変数初期化、この行を有効にするとエラーになります
;akak=10		; 型の変わる変数初期化、この行を有効にするとエラーになります

lab=*okok


*okok
	stop