Changeset 272 for Include/Classes/System/DateTime.ab

Timestamp:

Jun 12, 2007, 7:24:38 PM (18 years ago)

Author:

イグトランス (egtra)

Message:

StringBuilderを追加。String不変へ。共通の文字列操作関数をActiveBasic.Strings内に配置（設計に検討の余地あり）。

File:

• Include/Classes/System/DateTime.ab (modified) (2 diffs)

Include/Classes/System/DateTime.ab

@@ -178 +178 @@
     End Function
 
-    Static Function ToDay() As DateTime
+    Static Function Today() As DateTime
         Dim time As SYSTEMTIME
         GetLocalTime(time)
@@ -292 +292 @@
         Dim dateFormatSize = GetDateFormat(LOCALE_USER_DEFAULT, 0, time, NULL, NULL, 0)
         Dim timeFormatSize = GetTimeFormat(LOCALE_USER_DEFAULT, 0, time, NULL, NULL, 0)
-        Dim dateTimeFormats = malloc(dateFormatSize + timeFormatSize) As PTSTR
+        Dim strLength = dateFormatSize + timeFormatSize
+        Dim dateTimeFormats = GC_malloc_atomic(SizeOf (TCHAR) * (strLength)) As PTSTR
         GetDateFormat(LOCALE_USER_DEFAULT, 0, time, NULL, dateTimeFormats, dateFormatSize)
         dateTimeFormats[dateFormatSize - 1] = Asc(" ")
         GetTimeFormat(LOCALE_USER_DEFAULT, 0, time, NULL, dateTimeFormats + dateFormatSize, timeFormatSize)
-
-        Return New String(dateTimeFormats)
+'Debug
+        Return New String(dateTimeFormats, strLength)
     End Function