ab.com コミュニティ

http://www.discoversoft.net/forum/viewtopic.php?t=100
ここのを読んでふと思いついた即席クラスです。

Class PSTR
Public
	Ptr As BytePtr
	Sub PSTR(p As BytePtr)
		Ptr = p
	End Sub
	
	Function MakeStr() As String
		MakeStr = MakeStr(Ptr)
	End Function
End Class

Class AutoBytePtr
	Inherits PSTR
Public
	Sub AutoBytePtr(p As BytePtr)
		PSTR(p)
	End Sub

	Sub ~AutoBytePtr()
		free(Ptr)
	End Sub
End Class

Class ByteBufStr
	Inherits AutoBytePtr
Public
	Sub ByteBufStr(pStr As BytePtr)
		AutoBytePtr(malloc(lstrlen(pStr) + 1))
		lstrcpy(Ptr, pStr)
	End Sub
End Class

PSTRは単に変数宣言と同時に文字列リテラルへのポインタで初期化できるようにしただけ。
AutoBytePtrはスマートポインタの機能を持たせた。
ByteBufStrは文字列のコピーを作ってそこへのポインタを保持させるようにした。
といった具合です。

そして例えばこんな風に使えます。

コード: 全て選択

#prompt
Dim p1 As PSTR("Hello,")
Dim p2 As AutoBytePtr(malloc(4))
lstrcpy(p2.Ptr, "AB")
Dim p3 As ByteBufStr("World.")

Print p1.MakeStr(); p2.MakeStr(); p3.MakeStr()

ab.com コミュニティ

文字列リテラルで初期化できる変数

文字列リテラルで初期化できる変数