5. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 11/6/2017 12:10:30 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.

5.1 Files compared

#	Location	File	Last Modified
1	ccre.zip\ccre\Components\ZZZ	uZZ_DescribedItem.pas	Thu Nov 2 15:25:36 2017 UTC
2	ccre.zip\ccre\Components\ZZZ	uZZ_DescribedItem.pas	Mon Nov 6 14:38:40 2017 UTC

5.2 Comparison summary

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

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

5.4 Active regular expressions

No regular expressions were active.

5.5 Comparison detail

	1	unit uZZ_D escribedIt em;
	2	{
	3	========== ========== ========== ========== ========== ========== ========== ==========
	4	*
	5	* Pa ckage: develo pment tool
	6	* Da te Created : 5/08/1 2
	7	* Si te: Hines OIFO
	8	* De velopers:
	9	* PII
	10	*
	11	* De scription: Genera l self-des cribed obj ect
	12	*
	13	========== ========== ========== ========== ========== ========== ========== ==========
	14	}
	15	interface
	16
	17	uses
	18	classes
	19	,SysUtil s
	20	;
	21
	22	type
	23
	24	ImDescri be = inter face
	25	['{D3C A9934-7EBA -40F9-A481 -C93E301D1 30F}']
	26	functi on GetName :String; stdcall;
	27	functi on GetDesc ription:TS tringList; stdcall;
	28
	29	proced ure Reload ; stdcall;
	30	functi on GetComp onents:TSt ringList; stdcall;
	31	functi on GetImag eIndex:Int eger;stdca ll;
	32	functi on GetSele ctedIndex: Integer;st dcall;
	33	functi on HasComp onents:Int eger;stdca ll;
	34
	35	end;
	36
	37	TmDescri bedItem = class(TInt erfacedObj ect , ImDe scribe, IU nknown)
	38	protecte d
	39	Name:S tring;
	40	Status :String;
	41	Descri ption: TSt ringList;
	42	Compon ents:TStri ngList;
	43	RawLin es:TString List;
	44	ImageI ndex,
	45	Select edIndex: I nteger;
	46	public
	47	functi on _AddRef :Integer;s tdcall;
	48	functi on _Releas e:Integer; stdcall;
	49
	50	functi on GetName :String;st dcall;
	51	functi on GetDesc ription:TS tringList; stdcall;
	52	functi on GetComp onents:TSt ringList; stdcall;
	53	proced ure Reload ;stdcall;
	54	functi on GetImag eIndex:Int eger;stdca ll;
	55	functi on GetSele ctedIndex: Integer;st dcall;
	56	functi on HasComp onents:Int eger;stdca ll;
	57
	58	constr uctor Crea te(aList:T StringList );
	59	destru ctor Destr oy;overrid e;
	60	end;
	61
	62	function g etDescribe dItem(
	63	aName: S tring;
	64	aDescrip tion:Strin g): TmDesc ribedItem;
	65
	66	implementa tion
	67
	68
	69	function g etDescribe dItem(
	70	aName: S tring;
	71	aDescrip tion:Strin g): TmDesc ribedItem;
	72	var
	73	SL: TStr ingList;
	74	begin
	75	SL := TS tringList. Create;
	76	SL.Text := aName+# 13#10+aDes cription+ #13#10;
	77	Result : = TmDescri bedItem.Cr eate(SL);
	78	FreeAndN il(SL);
	79	end;
	80
	81	{TDescribe dItem}
	82	function T mDescribed Item._AddR ef:Integer ;
	83	begin
	84	Result : = -1;
	85	end;
	86
	87	function T mDescribed Item._Rele ase:Intege r;
	88	begin
	89	Result : = -1;
	90	end;
	91
	92	function T mDescribed Item.GetNa me:String;
	93	begin
	94	Result : = Name;
	95	end;
	96
	97	function T mDescribed Item.GetDe scription: TStringLis t;
	98	begin
	99	Result : = Descript ion;
	100	end;
	101
	102	function T mDescribed Item.GetCo mponents:T StringList ;
	103	begin
	104	Result : = Componen ts;
	105	end;
	106
	107	procedure TmDescribe dItem.Relo ad;
	108	begin
	109	end;
	110
	111	function T mDescribed Item.GetIm ageIndex:I nteger;
	112	begin
	113	Result : = ImageInd ex;
	114	end;
	115
	116	function T mDescribed Item.GetSe lectedInde x:Integer;
	117	begin
	118	Result : = Selected Index;
	119	end;
	120
	121	function T mDescribed Item.HasCo mponents:I nteger;
	122	begin
	123	Result : = Componen ts.Count;
	124	end;
	125
	126	constructo r TmDescri bedItem.Cr eate(aList :TStringLi st);
	127	begin
	128	try
	129	RawLin es := TStr ingList.Cr eate;
	130	Compon ents := TS tringList. Create;
	131	Descri ption := T StringList .Create;
	132	Name : = '...';
	133	if Ass igned(aLis t) then
	134	try
	135	RawL ines.Assig n(aList);
	136	Desc ription.As sign(aList );
	137	Name := Descri ption[0];
	138	except
	139	end;
	140	except
	141	end;
	142	end;
	143
	144	destructor TmDescrib edItem.Des troy;
	145	begin
	146	//Messag eDLG('Dest roying Des cribed Ite m '+Name, mtInformat ion,[mbOk] , 0);
	147	try
	148	if Raw Lines <> n il then
	149	RawL ines.Free;
	150	if Des cription < > nil then
	151	Desc ription.Fr ee;
	152	if Com ponents <> nil then
	153	Comp onents.Fre e;
	154	except
	155	end;
	156	inherite d;
	157	end;
	158
	159	end.
	160