チェンジセット 661

差分発生行の前後
無視リスト:
コミット日時:
2008/11/27 01:45:23 (1 ヶ月前)
コミッタ:
egtra
ログメッセージ:

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

ファイル:

凡例:

変更無し
追加
削除
更新
コピー
移動

  • 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