Changeset 288 for Include/Classes/System


Ignore:
Timestamp:
Aug 15, 2007, 3:22:33 AM (17 years ago)
Author:
dai
Message:

いくつかタイプミスを修正。
エラーになるコードを排除、
enumクラスのビット演算メソッドをコメントアウト(仕様未確定なため)。

Location:
Include/Classes/System
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • Include/Classes/System/IO/DriveInfo.ab

    r285 r288  
    4141        Dim systemName[15] As TCHAR
    4242        If GetVolumeInformation(m_DriveName, NULL, 0, NULL, NULL, NULL, systemName, Len (systemName)) Then
    43             Return systemName
     43            Dim resultStr = New String( systemName )
     44            Return resultStr
    4445        Else
    4546            'IOException
     
    8586
    8687    Function VolumeLabel() As String
    87         Dim volumeName[63] As TCAHR
    88         If GetVolumeInformation(m_DriveName, volumeName, 64, NULL, NULL, NULL, NULL, NULL) Then
    89             Return volumeName
     88        Dim volumeName[63] As TCHAR
     89        If GetVolumeInformation(m_DriveName, volumeName, 64, NULL, NULL, NULL, NULL, 0) Then
     90            Dim resultStr = New String( volumeName )
     91            Return resultStr
    9092        Else
    9193            'IOException
  • Include/Classes/System/Text/StringBuilder.ab

    r272 r288  
    308308        EnsureCapacity(newSize)
    309309        separateBuffer()
    310         ActiveBasic.Strings.ChrMove(VarPtr(chars[i + lenTotal]), VarPtr(chars[i]), (size - index) As SIZE_T)
     310
     311        ' TODO: fix me!(定義されていない変数iが使われています)
     312        'ActiveBasic.Strings.ChrMove(VarPtr(chars[i + lenTotal]), VarPtr(chars[i]), (size - index) As SIZE_T)
     313
    311314        Dim i As Long
    312315        For i = 0 To ELM(n)
Note: See TracChangeset for help on using the changeset viewer.