Changeset 224
- Timestamp:
- Apr 30, 2007, 3:32:05 PM (18 years ago)
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
Include/Classes/System/Object.ab
r214 r224 26 26 ' 参照先が等しいか判断する 27 27 Static Function ReferenceEquals(objectA As Object, objectB As Object) As Boolean 28 If VarPtr( objectA) = 0 /*objectA = Nothing*/Then29 Return VarPtr(objectB) = 0 'objectB = Nothing30 Else If VarPtr(objectB) = 0 /*objectB = Nothing*/ Then28 If VarPtr( objectA ) = VarPtr( objectB) Then 29 Return True 30 Else 31 31 Return False 32 Else33 Return GetPointer(VarPtr(objectA)) = GetPointer(VarPtr(objectA))34 32 End If 35 33 End Function … … 42 40 ' オブジェクトに関係する文字列を返す 43 41 Virtual Function ToString() As String 44 Return "Object"42 Return GetType().Name 45 43 End Function 46 44 -
TestCase/SimpleTestCase/SimpleTestCase.idx
r222 r224 4 4 5 5 'Win32APIの定義ファイル 6 7 'プロジェクト内のプログラム ファイル 8 #include "ObjectTest.ab" 9 10 'リソースファイル 11 #include "resource.ab" 12 #resource "SimpleTestCase.rc" -
TestCase/SimpleTestCase/SimpleTestCase.pj
r222 r224 23 23 #DEBUG_EXE_PATH= 24 24 25 #RESOURCE= 025 #RESOURCE=SimpleTestCase.rc 26 26 27 27 #SOURCE 28 28 SimpleTestCase.ab 29 ObjectTest.ab
Note:
See TracChangeset
for help on using the changeset viewer.