Changeset 661

Timestamp:

2008/11/27 01:45:23 (3 years ago)

Author:

egtra

Message:

OperatingSystem?.VersionStringをStringBuilder使用に書き換えた。

File:

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

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

@@ -41 +41 @@
 
     Const Function VersionString() As String
+        Dim sb = New Text.StringBuilder
+
         Select Case pf
             Case PlatformID.Win32S
-                VersionString = "Microsoft Win32S "
+                sb.Append("Microsoft Win32S ")
             Case PlatformID.Win32Windows
-                VersionString = "Microsoft Windows "
+                sb.Append("Microsoft Windows ")
             Case PlatformID.Win32NT
-                VersionString = "Microsoft Windows NT "
+                sb.Append("Microsoft Windows NT ")
             Case PlatformID.WinCE
-                VersionString = "Microsoft Windows CE "
+                sb.Append("Microsoft Windows CE ")
             Case PlatformID.Unix
-                VersionString = "<unknown> "
+                sb.Append("<unknown> ")
         End Select
-        VersionString = VersionString + ver.ToString
+        sb.Append(ver)
         If String.IsNullOrEmpty(sp) <> False Then
-            VersionString = VersionString + " " + sp
+            sb.Append(" ").Append(sp)
         End If
+        VersionString = sb.ToString()
     End Function