Changeset 581 for trunk/ab5.0/ablib/src/Classes/ActiveBasic/Strings/Strings.ab

Timestamp:

Aug 9, 2008, 1:32:26 PM (16 years ago)

Author:

イグトランス (egtra)

Message:

Unicodeコンパイルで問題になる部分を修正

File:

• trunk/ab5.0/ablib/src/Classes/ActiveBasic/Strings/Strings.ab (modified) (2 diffs)

trunk/ab5.0/ablib/src/Classes/ActiveBasic/Strings/Strings.ab

@@ -38 +38 @@
     MoveMemory(dst, src, size)
     Return dst
+End Function
+
+Function StrCpy(dst As PCSTR, src As PCSTR) As PCSTR
+    StrCpy = dst
+    Dim i As SIZE_T
+    Do
+        dst[i] = src[i]
+        If src[i] = 0 Then Exit Do
+        i++
+    Loop 
+End Function
+
+Function StrCpy(dst As PCWSTR, src As PCWSTR) As PCWSTR
+    StrCpy = dst
+    Dim i As SIZE_T
+    Do
+        dst[i] = src[i]
+        If src[i] = 0 Then Exit Do
+        i++
+    Loop 
 End Function
 
@@ -191 +211 @@
 
 Namespace Detail
-Function Split(s As String, c As Char) As System.Collections.Generic.List<String>
+Function Split(s As String, c As Char) As System.Collections.Generic.IList<String>
     Split = New System.Collections.Generic.List<String>