Changeset 132 for Include/basic/function.sbp

Timestamp:

Mar 4, 2007, 11:28:44 PM (17 years ago)

Author:

イグトランス (egtra)

Message:

String型の自身を変更するメソッドを、戻り値で返すように変更。
併せて文字列比較を自前の関数で行うように変更。
プロンプトのキャレットの位置計算が正しくなかったバグを修正。

File:

• Include/basic/function.sbp (modified) (1 diff)

Include/basic/function.sbp

@@ -1137 +1137 @@
 End Function
 
+Function _System_StrCmp(s1 As PCSTR, s2 As PCSTR) As Long
+    Dim i = 0 As SIZE_T
+    While s1[i] = s2[i]
+        If s1[i] = 0 Then
+            Exit While
+        End If
+        i++
+    Wend
+    _System_StrCmp = s1[i] - s2[i]
+End Function
+
+Function _System_StrCmp(s1 As PCWSTR, s2 As PCWSTR) As Long
+    Dim i = 0 As SIZE_T
+    While s1[i] = s2[i]
+        If s1[i] = 0 Then
+            Exit While
+        End If
+        i++
+    Wend
+    _System_StrCmp = s1[i] - s2[i]
+End Function
 #endif '_INC_FUNCTION