Changeset 121 for Include/basic.sbp

Timestamp:

Feb 25, 2007, 12:56:09 AM (17 years ago)

Author:

イグトランス (egtra)

Message:

続#51対応

File:

• Include/basic.sbp (modified) (2 diffs)

Include/basic.sbp

@@ -79 +79 @@
 End Function
 
+Sub SetChar(p As *Char, c As Char)
+    p[0] = c
+End Sub
+
+Function GetChar(p As *Char) As Char
+    GetChar = p[0]
+End Function
+
 TypeDef SIZE_T = ULONG_PTR
 TypeDef SSIZE_T = LONG_PTR
@@ -87 +95 @@
 ' Specify elements number
 '--------------------------
-Const ELM(n) = n - 1
+Const ELM(n) = (n - 1)
 
 #include <windows.sbp>