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

39.1 Files compared

# Location File Last Modified
1 C:\AraxisMergeCompare\Pri_un\CPRS_32_P2_PCE\OR_30_405V60_SRC\Cover Sheet oCoverSheetParamEnumerator.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 oCoverSheetParamEnumerator.pas Fri Apr 12 13:42:22 2019 UTC

39.2 Comparison summary

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

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

39.4 Active regular expressions

No regular expressions were active.

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