29. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 1/31/2019 1:51:41 PM Central Standard 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.

29.1 Files compared

#	Location	File	Last Modified
1	CPRS v31b Phase 2 T257 CiF Submission..zip\CPRS v31b Phase 2 T257 CiF Submission\OR_30_377V257_src\Cover Sheet	oCoverSheetParamList.pas	Thu Nov 15 18:27:48 2018 UTC
2	CPRS v31b Phase 2 T257 CiF Submission.zip\CPRS v31b Phase 2 T257 CiF Submission\OR_30_377V257_src\Cover Sheet	oCoverSheetParamList.pas	Tue Jan 29 15:30:19 2019 UTC

29.2 Comparison summary

Description	Between Files 1 and 2
Description	Text Blocks	Lines
Unchanged	2	218
Changed	1	2
Inserted	0	0
Removed	0	0

29.3 Comparison options

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

29.4 Active regular expressions

No regular expressions were active.

29.5 Comparison detail

	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.