22. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 8/3/2017 2:38:21 PM Central 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.

22.1 Files compared

#	Location	File	Last Modified
1	V32.zip\V32\OR_30_405V28_SRC\Cover Sheet	oCoverSheetParamEnumerator.pas	Wed May 10 17:35:44 2017 UTC
2	V32.zip\V32\OR_30_405V28_SRC\Cover Sheet	oCoverSheetParamEnumerator.pas	Thu Aug 3 16:07:23 2017 UTC

22.2 Comparison summary

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

22.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

22.4 Active regular expressions

No regular expressions were active.

22.5 Comparison detail

	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.