HSPTV!掲示板

配列の要素を別の配列の最後尾に移し、移動させた要素を消して要素をシフトさせる命令が作りたいです。

#deffunc xtox array arr,array toarr//指定配列の第一要素をtoの配列に移動(移動元は削除、詰める)
	dim arrdash,length(arr)-1
	arr(0)=toarr(length(toarr))
	foreach arrdash
		arrdash(cnt)=arr(cnt+1)
	loop
	arr=arrdash
return

これでできると思ったのですが、「配列の要素が無効です」というエラーがでてしまいます。
どうすればエラーを解決できますか？

lengthは最大の要素番号より1つ大きい整数を返します。
(0),(1),(2)とあれば3が返ります。
エラーの原因はこれですがそこを修正しても正しく動作しない気がします。

arr=arrdashとしてもarrがarrdashになることはありません。
arrayはポインタではなく
arrはarr(0)を意味し、
arr(0)=arrdash(0)をしているだけとなります。

そういうことだったんですね。
ありがとうございます。