Changeset 212 for Include/Classes/System/Version.ab

Timestamp:

Apr 13, 2007, 5:12:31 PM (17 years ago)

Author:

イグトランス (egtra)

Message:

Object.ReferenceEqualsを追加

File:

• Include/Classes/System/Version.ab (modified) (5 diffs)

Include/Classes/System/Version.ab

@@ -23 +23 @@
         This.major = major
         This.minor = minor
-        build = -1
-        revision = -1
+        This.build = -1
+        This.revision = -1
     End Sub
 
@@ -31 +31 @@
         This.minor = minor
         This.build = build
-        revision = -1
+        This.revision = -1
     End Sub
 
@@ -126 +126 @@
         ToString = Str$(major)
         If fieldCount = 1 Then Exit Function
-        ToString = Str$(minor)
+        ToString = ToString + "." + Str$(minor)
         If fieldCount = 2 Then Exit Function
 
@@ -133 +133 @@
             Debug
         End If
-        ToString = Str$(build)
+        ToString = ToString + "." + Str$(build)
         If fieldCount = 3 Then Exit Function
 
@@ -140 +140 @@
             Debug
         End If
-        ToString = Str$(rivision)
+        ToString = ToString + "." + Str$(rivision)
     End Function
 Private