42. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 5/10/2019 1:00:05 PM Eastern 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.

42.1 Files compared

# Location File Last Modified
1 CPRS_v32_64_P2.zip\OR_30_405V64_SRC.zip\Cover Sheet oCoverSheetParamEnumerator.pas Wed Apr 3 19:32:16 2019 UTC
2 CPRS_v32_64_P2.zip\OR_30_405V64_SRC.zip\Cover Sheet oCoverSheetParamEnumerator.pas Thu May 9 00:51:33 2019 UTC

42.2 Comparison summary

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

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

42.4 Active regular expressions

No regular expressions were active.

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