Produced by Araxis Merge on 5/10/2019 1:00:05 PM Eastern Daylight Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.
# | Location | File | Last Modified |
---|---|---|---|
1 | CPRS_v32_64_P2.zip\OR_30_405V64_SRC.zip\Cover Sheet | oCoverSheetParamEnumerator.pas | Wed Apr 3 19:32:16 2019 UTC |
2 | CPRS_v32_64_P2.zip\OR_30_405V64_SRC.zip\Cover Sheet | oCoverSheetParamEnumerator.pas | Thu May 9 00:51:33 2019 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 156 |
Changed | 1 | 2 |
Inserted | 0 | 0 |
Removed | 0 | 0 |
Whitespace | |
---|---|
Character case | Differences in character case are significant |
Line endings | Differences in line endings (CR and LF characters) are ignored |
CR/LF characters | Not shown in the comparison detail |
No regular expressions were active.
1 | unit oCove rSheetPara mEnumerato r; | |
2 | ||
3 | { | |
4 | ======== ========== ========== ========== ========== ========== ========== ========== == | |
5 | * | |
6 | * Applicatio n: CPRS - Covershee t | |
7 | * Developer: PII | |
8 | * Site: Salt L ake City I SC | |
9 | * Date: 2015-1 2-04 | |
10 | * | |
11 | * Descriptio n: Simple enumerato r for TCov erSheetPar amList obj ect. | |
12 | * | |
13 | * Notes: | |
14 | * | |
15 | ======== ========== ========== ========== ========== ========== ========== ========== == | |
16 | } | |
17 | interface | |
18 | ||
19 | uses | |
20 | System.C lasses, | |
21 | SysUtils , | |
22 | iCoverSh eetIntf; | |
23 | ||
24 | type | |
25 | TCoverSh eetParamEn umerator = class(TIn terfacedOb ject, ICov erSheetPar amEnumerat or) | |
26 | private | |
27 | fList: IInterfac eList; | |
28 | fIndex : integer; | |
29 | public | |
30 | constr uctor Crea te(aList: IInterface List); | |
31 | destru ctor Destr oy; overri de; | |
32 | ||
33 | functi on GetCurr ent: ICove rSheetPara m; | |
34 | functi on MoveNex t: boolean ; | |
35 | end; | |
36 | ||
37 | implementa tion | |
38 | ||
39 | { TCoverSh eetParamEn umerator } | |
40 | ||
41 | constructo r TCoverSh eetParamEn umerator.C reate(aLis t: IInterf aceList); | |
42 | begin | |
43 | inherite d Create; | |
44 | aList.Qu eryInterfa ce(IInterf aceList, f List); | |
45 | fIndex : = -1; | |
46 | end; | |
47 | ||
48 | destructor TCoverShe etParamEnu merator.De stroy; | |
49 | begin | |
50 | fList := nil; | |
51 | inherite d; | |
52 | end; | |
53 | ||
54 | function T CoverSheet ParamEnume rator.GetC urrent: IC overSheetP aram; | |
55 | begin | |
56 | try | |
57 | Suppor ts(fList[f Index], IC overSheetP aram, Resu lt); | |
58 | except | |
59 | Result := nil; | |
60 | end; | |
61 | end; | |
62 | ||
63 | function T CoverSheet ParamEnume rator.Move Next: bool ean; | |
64 | begin | |
65 | try | |
66 | if fIn dex >= (fL ist.Count - 1) then | |
67 | Resu lt := Fals e | |
68 | else | |
69 | begi n | |
70 | Re sult := fI ndex < (fL ist.Count - 1); | |
71 | if Result th en | |
72 | Inc(fIndex ); | |
73 | end; | |
74 | except | |
75 | Result := False; | |
76 | end; | |
77 | end; | |
78 | ||
79 | end. |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.