40. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 4/16/2019 12:20:47 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.

40.1 Files compared

# Location File Last Modified
1 C:\AraxisMergeCompare\Pri_un\CPRS_32_P2_PCE\OR_30_405V60_SRC\Cover Sheet oCoverSheetParamList.pas Wed Dec 12 14:04:36 2018 UTC
2 C:\AraxisMergeCompare\Pri_re\CPRS v32 P2 PCE Standardization-redacted\CPRS_32_P2_PCE\OR_30_405V60_SRC\Cover Sheet oCoverSheetParamList.pas Fri Apr 12 13:42:22 2019 UTC

40.2 Comparison summary

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

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

40.4 Active regular expressions

No regular expressions were active.

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