Changeset 661


Ignore:
Timestamp:
Nov 27, 2008, 1:45:23 AM (16 years ago)
Author:
イグトランス (egtra)
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ab5.0/ablib/src/Classes/System/OperatingSystem.ab

    r601 r661  
    4141
    4242    Const Function VersionString() As String
     43        Dim sb = New Text.StringBuilder
     44
    4345        Select Case pf
    4446            Case PlatformID.Win32S
    45                 VersionString = "Microsoft Win32S "
     47                sb.Append("Microsoft Win32S ")
    4648            Case PlatformID.Win32Windows
    47                 VersionString = "Microsoft Windows "
     49                sb.Append("Microsoft Windows ")
    4850            Case PlatformID.Win32NT
    49                 VersionString = "Microsoft Windows NT "
     51                sb.Append("Microsoft Windows NT ")
    5052            Case PlatformID.WinCE
    51                 VersionString = "Microsoft Windows CE "
     53                sb.Append("Microsoft Windows CE ")
    5254            Case PlatformID.Unix
    53                 VersionString = "<unknown> "
     55                sb.Append("<unknown> ")
    5456        End Select
    55         VersionString = VersionString + ver.ToString
     57        sb.Append(ver)
    5658        If String.IsNullOrEmpty(sp) <> False Then
    57             VersionString = VersionString + " " + sp
     59            sb.Append(" ").Append(sp)
    5860        End If
     61        VersionString = sb.ToString()
    5962    End Function
    6063
Note: See TracChangeset for help on using the changeset viewer.