You signed in with another tab or window. Reload to refresh your session.You signed out in another tab or window. Reload to refresh your session.You switched accounts on another tab or window. Reload to refresh your session.Dismiss alert
Copy file name to clipboardExpand all lines: VerInfo/3/API/TPJVersionNumber.md
+21
Original file line number
Diff line number
Diff line change
@@ -25,6 +25,27 @@ Common uses for these fields are shown in the comments in the record definition
25
25
26
26
When compiled with Delphi 2006 and later _TPJVersionNumber_ has some additional functionality. This functionality depends on the availability of advanced records, which were introduced with Delphi 2006.
27
27
28
+
The revised record declaration is:
29
+
30
+
```pascal
31
+
// ~>3.3 version of TPJVersionNumber
32
+
TPJVersionNumber = record
33
+
V1: Word; // Major version number
34
+
V2: Word; // Minor version number
35
+
V3: Word; // Revision version number
36
+
V4: Word; // Build number
37
+
{$IFDEF Supports_AdvancedRecords} // Delphi 2006 & later
38
+
class operator Implicit(Ver: TPJVersionNumber): string;
39
+
class operator LessThanOrEqual(Ver1, Ver2: TPJVersionNumber): Boolean;
40
+
class operator LessThan(Ver1, Ver2: TPJVersionNumber): Boolean;
41
+
class operator GreaterThan(Ver1, Ver2: TPJVersionNumber): Boolean;
42
+
class operator GreaterThanOrEqual(Ver1, Ver2: TPJVersionNumber): Boolean;
43
+
class operator Equal(Ver1, Ver2: TPJVersionNumber): Boolean;
44
+
class operator NotEqual(Ver1, Ver2: TPJVersionNumber): Boolean;
45
+
{$ENDIF}
46
+
end;
47
+
```
48
+
28
49
#### String Assignment
29
50
30
51
A _TPJVersionNumber_ record can be assigned to a string variable. The version number is stored in the string as a dotted quad.
0 commit comments