Changeset 659 for trunk/ab5.0/ablib/src/Classes/System/DateTime.ab

Timestamp:

Nov 9, 2008, 3:32:30 PM (16 years ago)

Author:

イグトランス (egtra)

Message:

Unicodeビルド時にGetDateTimeFormatsがうまくいかない問題を修正

File:

• trunk/ab5.0/ablib/src/Classes/System/DateTime.ab (modified) (1 diff)

trunk/ab5.0/ablib/src/Classes/System/DateTime.ab

@@ -560 +560 @@
         GetDateFormat(LOCALE_USER_DEFAULT, 0, time, NULL, dateTimeFormats, dateFormatSize)
         dateTimeFormats[dateFormatSize - 1] = &H20 As TCHAR 'Asc(" ") As TCHAR
-        GetTimeFormat(LOCALE_USER_DEFAULT, 0, time, NULL, dateTimeFormats + dateFormatSize, timeFormatSize)
+        GetTimeFormat(LOCALE_USER_DEFAULT, 0, time, NULL, VarPtr(dateTimeFormats[dateFormatSize]), timeFormatSize)
         Return New String(dateTimeFormats, strLength)
     End Function