|
Last change
on this file since 119 was 119, checked in by イグトランス (egtra), 17 years ago |
|
Unicode (#50) 前準備
Byte→Char (#51) 型名は殆ど完了、ただし中身までは手を付けていないものが多い
|
|
File size:
405 bytes
|
| Rev | Line | |
|---|
| [1] | 1 | 'string.sbp
|
|---|
| 2 | '文字列変数の操作用
|
|---|
| 3 |
|
|---|
| 4 | #ifndef _INC_BASIC_STRING
|
|---|
| 5 | #define _INC_BASIC_STRING
|
|---|
| 6 |
|
|---|
| [119] | 7 | Function StrPtr(buf As *Char) As *Char
|
|---|
| [1] | 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 |
|
|---|
| [119] | 17 | Function MakeStr(pBuf As *Char) As String
|
|---|
| [1] | 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.
