NO_662_EDIT †
作成途中っすｗ なんとなく初期のをイメージ出来ました
モジュール
#module one_block_data many_data,data_title,del_flag,data_act_len
#modinit int p_size
data_title=""
data_act_len=0
del_flag=0
sdim many_data,100,p_size
return
#modfunc local set_del_flag
del_flag=-1
sdim data_title,1
sdim many_data,1.1
return
#modfunc local set_title str p_str
data_title=p_str
return
#modcfunc local get_title
return data_title
#modcfunc local get_data_length
return length(many_data)
#modcfunc local get_act_len
return data_act_len
#modfunc local set_one_data int p_index,str p_str
if p_index >= length(many_data):dialog "p_index is too big",1:return
many_data.p_index=p_str
if p_index > data_act_len : data_act_len=p_index
return
#modfunc local check_len
tmp_len = data_act_len
repeat tmp_len
if many_data(data_act_len-cnt)==""{
data_act_len--
}else{
break
}
loop
return
#modcfunc local get_one_data int p_index
if p_index >= length(many_data):dialog "p_index is too big",1:return -1
return many_data.p_index
#modfunc local str_dump
logmes "\ntitle:"+data_title+" del_flag:"+del_flag
repeat data_act_len
logmes ""+cnt+":"+many_data.cnt
loop
return
#modfunc local reset int p_size
data_title=""
del_flag=0
sdim many_data,100,p_size
return
#modfunc local resize int p_size,local loc_length,local loc_array
loc_length=length(many_data)
sdim loc_array,100,loc_length
repeat loc_length
loc_array.cnt=many_data.cnt
loop
if loc_length > p_size {
sdim many_data,100,p_size
repeat p_size
many_data.cnt = loc_array.cnt
loop
}else{
sdim many_data,100,p_size
repeat loc_length
many_data.cnt = loc_array.cnt
loop
}
return
#global
Skin "GS2" is designed by yiza.
Powered by PHP 7.1.33. HTML convert time: 0.008 sec.