'Classes/System/IO/StringReader.ab

Namespace System
Namespace IO

/*
@brief Stringから読み込みを行うTextReaderの実装。
@date 2008/02/26
@auther Egtra
*/
Class StringReader
	Inherits TextReader
Public
	/*
	@brief コンストラクタ
	@date 2008/02/26
	@auther Egtra
	@param str 読み取る元となる文字列。
	@exception ArgumentNullException strがNothingのとき。
	*/
	Sub StringReader(str As String)
		If ActiveBasic.IsNothing(str) Then
			Throw New ArgumentNullException("str")
		End If
		Dim b = Buffer
		b.Append(str)
	End Sub
End Class

End Namespace
End Namespace
