ab.com コミュニティ

上の質問ですが、一応、自己解決できました。
ご迷惑をおかけして申し訳ございません。

Type TREEDATA	'ツリービューのリスト構造体
	hHandle As HWND	'ノードのハンドル
	buffer As BytePtr	'ノードのデータ
	NextPtr As BytePtr	'次のリストの構造体ポインタ
End Type

/* 子ノードのハンドルをすべて削除する関数 */
Function DeleteChildNodePointer(hHandle As HWND) As HWND
	Dim hChild As HWND
	Dim hNext As HWND

	'まず、削除対象のノードが子を持っていないかを確認する
	hChild=SendMessage(hTree,TVM_GETNEXTITEM,TVGN_CHILD,hHandle)
	If hChild<>0 Then
		'持っていればそいつのハンドルを取得（リエントラント）
		DeleteChildNodePointer(hChild)
	End If

	'持っていなければ次のノードを検索
	hNext=SendMessage(hTree,TVM_GETNEXTITEM,TVGN_NEXT,hChild)

	'ノードがあれば検出
	If hNext<>0 Then
		DeleteChildNodePointer(hNext)
	End If

	'ポインタを削除する
	DeletePointer(hHandle)
End Function

/* ハンドルから指定されたポインタリストを削除する */
Sub DeletePointer(hHandle As HWND)
	Dim pt As *TREEDATA
	Dim tp As *TREEDATA

	pt=FirstPtr
	tp=FirstPtr

	Do
		If pt=NULL Then
			Exit Do
		End If

		If pt->hHandle=hHandle Then
			If pt=FirstPtr Then
				'ポインタが最後ならつなぎ替える
				FirstPtr=pt->NextPtr

				free(pt->buffer)
				free(pt)

			Else
				tp->NextPtr=pt->NextPtr

				free(pt->buffer)
				free(pt)

			End If

			Exit Do
		End If

		tp=pt
		pt=pt->NextPtr

	Loop
	
End Sub

たかせ様

ご返信ありがとうございます。
[quote]Dim FirstPtr As TREEDATA ではなく
Dim FirstPtr As *TREEDATAで定義してみてください。 [/quote]
なんという醜態……
そりゃそうだと、回答を拝見した時画面にチョップを入れてしました。
すいませんでした。

[quote]②BytePtrと*Byte型の違いについてですが
BytePtrと*Byte型はまったく同じものです。
AB V4.24のBASIC.SBPの28行目～46行目のソースコードに注目してください。
TYPEDEFステートメントを使用しています。 [/quote]
なるほど、ありがとうございました！
TYPEDEFステートメントは……定義付けみたいなものですね……？



何とか進んでいったのですが、今度はリエントラントで躓きました。

ツリービューで、各ノードにリスト構造体を持たせて、情報を管理しています。
リストの中身は、
・ノードのハンドル
・ノードのデータ（テキストデータ）
・次のリストへのポインタ
です。

ツリービューで、アイテムが追加されると、自動的にポインタも作られます。
その時、親ノードを閉じると、子ノードも自動的に消えますが、メモリは開放しません。
それをすべて解放しようとしています。

実験を重ねたところ、
hNext=SendMessage(hTree,TVM_GETNEXTITEM,TVGN_NEXT,hChild)
で、なぜか同列のノードが途中からかえらなくなっているところまでわかりました。
理由はわかりません……
子ノードは5つあるのに、上の関数では3つめまでしかループしていないという状況です。


ちょっと長いですが、おかしな所があればご教授ください。
よろしくお願いいたします。

[hide]↓例のリスト構造体です
[code]Type TREEDATA 'ツリービューのリスト構造体
hHandle As HWND 'ノードのハンドル
buffer As BytePtr 'ノードのデータ
NextPtr As BytePtr '次のリストの構造体ポインタ
End Type[/code]

[code]/* 子ノードのハンドルをすべて削除する関数 */
Function DeleteChildNodePointer(hHandle As HWND) As HWND
Dim hChild As HWND
Dim hNext As HWND

'まず、削除対象のノードが子を持っていないかを確認する
hChild=SendMessage(hTree,TVM_GETNEXTITEM,TVGN_CHILD,hHandle)
If hChild<>0 Then
'持っていればそいつのハンドルを取得（リエントラント）
DeleteChildNodePointer(hChild)
End If

'持っていなければ次のノードを検索
hNext=SendMessage(hTree,TVM_GETNEXTITEM,TVGN_NEXT,hChild)

'ノードがあれば検出
If hNext<>0 Then
DeleteChildNodePointer(hNext)
End If

'ポインタを削除する
DeletePointer(hHandle)
End Function[/code]

[code]/* ハンドルから指定されたポインタリストを削除する */
Sub DeletePointer(hHandle As HWND)
Dim pt As *TREEDATA
Dim tp As *TREEDATA

pt=FirstPtr
tp=FirstPtr

Do
If pt=NULL Then
Exit Do
End If

If pt->hHandle=hHandle Then
If pt=FirstPtr Then
'ポインタが最後ならつなぎ替える
FirstPtr=pt->NextPtr

free(pt->buffer)
free(pt)

Else
tp->NextPtr=pt->NextPtr

free(pt->buffer)
free(pt)

End If

Exit Do
End If

tp=pt
pt=pt->NextPtr

Loop

End Sub[/code]
[/hide]

水波形さんが実現したいプログラム（ソフト）機能仕様についてはよくわかりませんが、
①FirstPtrを構造体のポインタ変数で定義してみてください。
具体的には
Dim FirstPtr As TREEDATA ではなく
Dim FirstPtr As *TREEDATAで定義してみてください。

②BytePtrと*Byte型の違いについてですが
BytePtrと*Byte型はまったく同じものです。
AB V4.24のBASIC.SBPの28行目～46行目のソースコードに注目してください。
TYPEDEFステートメントを使用しています。

よろしくお願いします。

Type TREEDATA									'ツリービューのリスト構造体
	hHandle As HWND								'ノードのハンドル
	buffer As BytePtr							'ノードのデータ
	NextPtr As BytePtr							'次のリストの構造体ポインタ
End Type

Dim FirstPtr As TREEDATA						'ツリーデータの最初のポインタ

FirstPtr=NULL

Sub AddPointer(hHandle As HWND)
	'ツリーのポインタを作成
	Dim pt As TREEDATA
	pt=malloc(SizeOf(TREEDATA))
	pt.hHnadle=hHandle
	pt.NextPtr=FirstPtr

	FirstPtr=pt
End Sub

※引数の「hHandle」はノードのハンドル

お世話になっております。

今回、ポインタを勉強していて、リスト構造体と言うものを知り、
現在開発しようと思っているツリー型のテキストエディタ（[url=http://www.lares.dti.ne.jp/~cheebow/computer/myapps.html#stryedit]Story Editor[/url]に似た感じのもの）に使えると思って考えているのですが、
どうもうまくいきません。

学校ではC言語で習い、何とか課題は提出できたのですが、
自分をごまかしている部分があって完璧には理解できていません。

私の頭の中では、
ツリーのノードの情報をポインタを使って保存していき、
ノードがクリックされた時に参照し表示していく
という図式ができています。

[構造体1] - [構造体2] - [構造体3] - [構造体4]……
これを順に検索していく感じです


グローバル構造体で
[code]
Type TREEDATA 'ツリービューのリスト構造体
hHandle As HWND 'ノードのハンドル
buffer As BytePtr 'ノードのデータ
NextPtr As BytePtr '次のリストの構造体ポインタ
End Type
[/code]
を定義し、

グローバル変数で
[code]
Dim FirstPtr As TREEDATA 'ツリーデータの最初のポインタ
[/code]
を定義。

クリエイトイベントで
[code]
FirstPtr=NULL
[/code]

とりあえず、追加していこうと
[code]
Sub AddPointer(hHandle As HWND)
'ツリーのポインタを作成
Dim pt As TREEDATA
pt=malloc(SizeOf(TREEDATA))
pt.hHnadle=hHandle
pt.NextPtr=FirstPtr

FirstPtr=pt
End Sub

※引数の「hHandle」はノードのハンドル
[/code]
と書いたのですが、型が違うと怒られます。
これは、どのような感じで書いていけばいいのでしょうか。


また、調べていて疑問に思ったのですが、
BytePtrと*Byte型の違いは何でしょうか。

ご存じの方がいらっしゃいましたら、ご教授ください。