46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
|
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
|
if nE2 > 1 then
nV2 := StrToInt(Copy(oldVersion,1,(nE2-1)))
else
nV2 := 0;
if nV1 = nV2 then
VerStrCompare(Copy(newVersion, nE1 + 1, Length(newVersion)), Copy(oldVersion, nE2 + 1, Length(oldVersion)), comp)
else if nV1 > nV2 then
comp := 1
else if nV1 < nV2 then
comp := -1;
end
else
comp := 0;
|