Skip to content

Commit 4740ba6

Browse files
committed
Update TPJVersionNumber documentation
Updated "Enhanced Functionality" sub-section. Included listing of TPJVersionNumber advanced record.
1 parent e3af8da commit 4740ba6

File tree

1 file changed

+21
-0
lines changed

1 file changed

+21
-0
lines changed

Diff for: VerInfo/3/API/TPJVersionNumber.md

+21
Original file line numberDiff line numberDiff line change
@@ -25,6 +25,27 @@ Common uses for these fields are shown in the comments in the record definition
2525

2626
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.
2727

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+
2849
#### String Assignment
2950

3051
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

Comments
 (0)