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 | oCoverSheetParamList.pas | Wed Apr 3 19:32:15 2019 UTC |
2 | CPRS_v32_64_P2.zip\OR_30_405V64_SRC.zip\Cover Sheet | oCoverSheetParamList.pas | Thu May 9 00:51:34 2019 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 218 |
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 mList; | |
2 | { | |
3 | ======== ========== ========== ========== ========== ========== ========== ========== == | |
4 | * | |
5 | * Applicatio n: CPRS - Covershee t | |
6 | * Developer: PII | |
7 | * Site: Salt L ake City I SC | |
8 | * Date: 2015-1 2-04 | |
9 | * | |
10 | * Descriptio n: Simple collectio n of the p arameters for each p ane in the | |
11 | * covers heet. | |
12 | * | |
13 | * Notes: Includ es GetEnum erator as ICoverShee tParam. | |
14 | * | |
15 | ======== ========== ========== ========== ========== ========== ========== ========== == | |
16 | } | |
17 | ||
18 | interface | |
19 | ||
20 | uses | |
21 | System.C lasses, | |
22 | System.S ysUtils, | |
23 | iCoverSh eetIntf; | |
24 | ||
25 | type | |
26 | TCoverSh eetParamLi st = class (TInterfac edObject, ICoverShee tParamList ) | |
27 | private | |
28 | fParam s: IInterf aceList; | |
29 | ||
30 | functi on getCove rSheetPara m(aID: str ing): ICov erSheetPar am; | |
31 | functi on getCove rSheetPara mByIndex(a Index: int eger): ICo verSheetPa ram; | |
32 | functi on getCove rSheetPara mCount: in teger; | |
33 | ||
34 | functi on Add(aCo verSheetPa ram: ICove rSheetPara m): boolea n; | |
35 | functi on Clear: boolean; | |
36 | functi on GetEnum erator: IC overSheetP aramEnumer ator; | |
37 | public | |
38 | constr uctor Crea te; | |
39 | destru ctor Destr oy; overri de; | |
40 | end; | |
41 | ||
42 | implementa tion | |
43 | ||
44 | uses | |
45 | oCoverSh eetParam, | |
46 | oCoverSh eetParamEn umerator; | |
47 | ||
48 | { TCoverSh eetParamLi st } | |
49 | ||
50 | constructo r TCoverSh eetParamLi st.Create; | |
51 | begin | |
52 | TInterfa ceList.Cre ate.GetInt erface(IIn terfaceLis t, fParams ); | |
53 | end; | |
54 | ||
55 | destructor TCoverShe etParamLis t.Destroy; | |
56 | begin | |
57 | Clear; | |
58 | fParams := nil; | |
59 | inherite d; | |
60 | end; | |
61 | ||
62 | function T CoverSheet ParamList. Clear: boo lean; | |
63 | begin | |
64 | try | |
65 | while fParams.Co unt > 0 do | |
66 | begi n | |
67 | fP arams[0] : = nil; | |
68 | fP arams.Dele te(0); | |
69 | end; | |
70 | Result := True; | |
71 | except | |
72 | Result := False; | |
73 | end; | |
74 | end; | |
75 | ||
76 | function T CoverSheet ParamList. getCoverSh eetParamCo unt: integ er; | |
77 | begin | |
78 | Result : = fParams. Count; | |
79 | end; | |
80 | ||
81 | function T CoverSheet ParamList. getCoverSh eetParam(a ID: string ): ICoverS heetParam; | |
82 | begin | |
83 | Result : = nil; | |
84 | end; | |
85 | ||
86 | function T CoverSheet ParamList. getCoverSh eetParamBy Index(aInd ex: intege r): ICover SheetParam ; | |
87 | begin | |
88 | try | |
89 | Suppor ts(fParams [aIndex], ICoverShee tParam, Re sult); | |
90 | except | |
91 | Result := nil; | |
92 | end; | |
93 | end; | |
94 | ||
95 | function T CoverSheet ParamList. Add(aCover SheetParam : ICoverSh eetParam): boolean; | |
96 | begin | |
97 | try | |
98 | fParam s.Add(aCov erSheetPar am); | |
99 | Result := True; | |
100 | except | |
101 | Result := False; | |
102 | end; | |
103 | end; | |
104 | ||
105 | function T CoverSheet ParamList. GetEnumera tor: ICove rSheetPara mEnumerato r; | |
106 | begin | |
107 | TCoverSh eetParamEn umerator.C reate(fPar ams).GetIn terface(IC overSheetP aramEnumer ator, Resu lt); | |
108 | end; | |
109 | ||
110 | end. |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.