LCStream の New メソッド

LCStream クラスのコンストラクタメソッドです。空の LCStream オブジェクトを作成し、オプションでプロパティの初期値を割り当てます。

定義位置

LCStream

構文

Dim variableName As New LCStream(maxLength, flags, format)

パラメータ

パラメータ	説明
maxLength	Long。オプション。ストリームのデータの最大長です。0 は、最大長が指定されていないことを示します。これは、LCSTREAMF_FIXED フラグが設定されている場合は有効ではありません。デフォルトは 0 です。
streamFlags	Long。オプション。このストリームのフラグです。LCSTREAMF_FIXED フラグを使用して固定長ストリームを作成する場合、割り振られるストリームのデータバッファのサイズは maxLength バイトです。フラグの詳細については、「ストリームフラグ」を参照してください。デフォルトは 0 です。
format	Long。オプション。ストリームに割り当てられる初期ストリーム形式です。デフォルト値は LCSTREAMFMT_UNICODE です。

例

Option Public
Uselsx "*lsxlc" 
Sub Initialize
	Dim times As New LCStream (0, 0, LCSTREAMFMT_DATETIME_LIST)
	Dim fixedMessage As New LCStream(30, LCSTREAMF_TRUNCATE, LCSTREAMFMT_NATIVE)
	Dim timeToday As New LCDateTime, timeTomorrow As LCDatetime
	Call timeToday.SetCurrent
	Set timeTomorrow = timeToday.Copy( )
	Call timeTomorrow.Adjust(LCDTUNIT_DAY, 1)
	Call times.DatetimeListInsertValue (1, timeToday)
	Call times.DatetimeListInsertValue (2, timeTomorrow)
	fixedMessage.Text = "begorrah! he cried, tapping on the backs of the sleeping tortoises."
		' We used the Truncate flag, so the code doesn't cause an overflow error.
	Print {Times = "} & times.Text & {", message = "} & fixedMessage.Text & {"}
End Sub

出力例

Times = "03/13/2002 04:16:41.57 PM, 03/14/2002 04:16:41.57 PM", message = "begorrah! he cried, tapping on"