Add new routine and method to Arrays category

Added new Reverse<T> method to TArrayUtils.

Added new ReverseByteArray routine.

Updated Arrays category to add meta data for new ReverseByteArray
function and to update compile results for TArrayUtils.

Author: delphidabbler

collection/623.dat

@@ -21,6 +21,8 @@
       const Count: Integer; 
       const EqualityComparer: Generics.Defaults.TEqualityComparison<T>): 
       Boolean; static;
+    // Creates and returns a new array that is the reverse of the given array.
+    class function Reverse<T>(const A: array of T): TArray<T>; static;
   end;
 
 class function TArrayUtils.Equal<T>(const Left, Right: array of T;
@@ -60,6 +62,15 @@ begin
   Result := A[Pred(Length(A))];
 end;
 
+class function TArrayUtils.Reverse<T>(const A: array of T): TArray<T>;
+var
+  I: Integer;
+begin
+  SetLength(Result, Length(A));
+  for I := 0 to High(A) do
+    Result[High(A)-I] := A[I];
+end;
+
 class function TArrayUtils.SameStart<T>(const Left, Right: array of T;
   const Count: Integer; 
   const EqualityComparer: Generics.Defaults.TEqualityComparison<T>): Boolean;

collection/656.dat

@@ -0,0 +1,8 @@
+function ReverseByteArray(const A: array of Byte): TBytes;
+var
+  I: Integer;
+begin
+  SetLength(Result, Length(A));
+  for I := 0 to High(A) do
+    Result[High(A)-I] := A[I];
+end;

collection/arrays.ini

@@ -363,13 +363,19 @@ Delphi5=N
 Delphi6=N
 Delphi7=N
 Delphi2005Win32=N
-Delphi2006Win32=Y
+Delphi2006Win32=N
 Delphi2007=N
-Delphi2009Win32=Y
-Delphi2010=Y
 DelphiXE=Y
-DelphiXE2=Y
-DelphiXE3=Y
-DelphiXE4=Y
-Delphi10S=Y
-FPC=N
+Delphi12A=Y
+
+[ReverseByteArray]
+Kind=routine
+DisplayName=ReverseByteArray
+DescEx="<p>Returns a copy of a given byte array with the order of the bytes reversed.</p>"
+Depends=TBytes
+TestInfo=advanced
+AdvancedTest.Level=unit-tests
+AdvancedTest.URL="https://github.com/delphidabbler/code-snippets/tree/master/tests/Cat-Arrays"
+Snip=656.dat
+DelphiXE=Y
+Delphi12A=Y