Context Navigation

string.sbp@ 8

Last change on this file since 8 was 1, checked in by (none), 18 years ago

File size: 405 bytes

Rev	Line
[1]	1	'string.sbp
	2	'文字列変数の操作用
	3
	4	#ifndef _INC_BASIC_STRING
	5	#define _INC_BASIC_STRING
	6
	7	Function StrPtr(buf As Byte) As Byte
	8	StrPtr = buf
	9	End Function
	10
	11	Function ZeroString(length As Long) As String
	12	Dim str As String
	13	str.ReSize(length)
	14	Return str
	15	End Function
	16
	17	Function MakeStr(pBuf As *Byte) As String
	18	Dim temp As String(pBuf)
	19	Return temp
	20	End Function
	21
	22	#endif '_INC_BASIC_STRING

Note: See TracBrowser for help on using the repository browser.