Merge branch 'release/2.2.3'

Release v2.2.3

Author: delphidabbler

CHANGELOG.md

@@ -8,6 +8,12 @@ From v2.0.0 all notable changes to this project will be documented in this file.
 
 The format is based on [Keep a Changelog](https://keepachangelog.com/en/1.0.0/) and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0.html).
 
+## v2.2.3 of 2025/04/03
+
+* Added results of compiling with Delphi 12 for all snippets with no pre-existing compile results for that compiler (issue [#27](https://github.com/delphidabbler/code-snippets/issues/27)).
+* Fixed memory leak in the `CountOccurences` function (issue [#54](https://github.com/delphidabbler/code-snippets/issues/54)).
+* Updated `GetGIFSize` function to work around a deprecated warning with Delphi 12 and some earlier compilers because of a call to `SysUtils.StrLComp` which has been moved to the `AnsiStrings` unit (issue [#52](https://github.com/delphidabbler/code-snippets/issues/52)).
+
 ## v2.2.2 of 2025/01/19
 
 * New snippets were added to the _Arrays_ and _Mathematics_ categories:

collection/222.dat

@@ -15,8 +15,8 @@ type
     Flags: Byte;          // flags and local colour table size
   end;
 const
-  cSignature: PAnsiChar = 'GIF';  // gif image signature
-  cImageSep = $2C;                // image separator byte
+  cSignature = 'GIF';  // gif image signature
+  cImageSep = $2C;     // image separator byte
 var
   FS: Classes.TFileStream;      // stream onto gif file
   Header: TGIFHeader;           // gif header record
@@ -37,7 +37,7 @@ begin
     // Check signature
     BytesRead := FS.Read(Header, SizeOf(Header));
     if (BytesRead <> SizeOf(TGIFHeader)) or
-      (SysUtils.StrLComp(cSignature, Header.Sig, 3) <> 0) then
+      (Copy(Header.sig, 1, 3) <> cSignature) then
       // Invalid file format
       Exit;
     // Skip colour map, if there is one

collection/699.dat

@@ -7,12 +7,12 @@ var
 
   procedure SortResult(
     var A: array of Generics.Collections.TPair<Integer,Cardinal>);
-  begin
-    Generics.Collections.TArray.Sort<
+  var
+    Comparer: Generics.Defaults.IComparer<
       Generics.Collections.TPair<Integer,Cardinal>
-    >(
-      A,
-      Generics.Defaults.TDelegatedComparer<
+    >;
+  begin
+    Comparer := Generics.Defaults.TDelegatedComparer<
         Generics.Collections.TPair<Integer,Cardinal>
       >.Create(
         function (
@@ -21,8 +21,10 @@ var
         begin
           Result := Left.Key - Right.Key;
         end
-      )
-    );
+      );
+    Generics.Collections.TArray.Sort<
+      Generics.Collections.TPair<Integer,Cardinal>
+    >(A, Comparer);
   end;
 
 begin

collection/VERSION

@@ -1 +1 @@
-2.2.2
+2.2.3

collection/arrays.ini

@@ -26,6 +26,7 @@ DelphiXE2=Y
 DelphiXE3=Y
 DelphiXE4=Y
 Delphi10S=Y
+Delphi12A=Y
 FPC=Y
 
 [ByteArraysEqual]
@@ -48,6 +49,7 @@ DelphiXE2=Y
 DelphiXE3=Y
 DelphiXE4=Y
 Delphi10S=Y
+Delphi12A=Y
 FPC=Y
 
 [ByteArraysSameStart]
@@ -70,6 +72,7 @@ DelphiXE2=Y
 DelphiXE3=Y
 DelphiXE4=Y
 Delphi10S=Y
+Delphi12A=Y
 FPC=Y
 
 [IndexOfByte]
@@ -92,6 +95,7 @@ DelphiXE2=Y
 DelphiXE3=Y
 DelphiXE4=Y
 Delphi10S=Y
+Delphi12A=Y
 FPC=Y
 
 [LastIndexOfByte]
@@ -114,6 +118,7 @@ DelphiXE2=Y
 DelphiXE3=Y
 DelphiXE4=Y
 Delphi10S=Y
+Delphi12A=Y
 FPC=Y
 
 [StringListToArray]
@@ -137,6 +142,7 @@ DelphiXE2=Y
 DelphiXE3=Y
 DelphiXE4=Y
 Delphi10S=Y
+Delphi12A=Y
 FPC=Y
 
 [AppendByteArray]
@@ -160,6 +166,7 @@ DelphiXE2=Y
 DelphiXE3=Y
 DelphiXE4=Y
 Delphi10S=Y
+Delphi12A=Y
 FPC=Y
 
 [ChopByteArray]
@@ -183,6 +190,7 @@ DelphiXE2=Y
 DelphiXE3=Y
 DelphiXE4=Y
 Delphi10S=Y
+Delphi12A=Y
 FPC=Y
 
 [CloneByteArray]
@@ -207,6 +215,7 @@ DelphiXE2=Y
 DelphiXE3=Y
 DelphiXE4=Y
 Delphi10S=Y
+Delphi12A=Y
 FPC=Y
 
 [ConcatByteArrays]
@@ -230,6 +239,7 @@ DelphiXE2=Y
 DelphiXE3=Y
 DelphiXE4=Y
 Delphi10S=Y
+Delphi12A=Y
 FPC=Y
 
 [PopByteArray]
@@ -253,6 +263,7 @@ DelphiXE2=Y
 DelphiXE3=Y
 DelphiXE4=Y
 Delphi10S=Y
+Delphi12A=Y
 FPC=Y
 
 [PushByteArray]
@@ -276,6 +287,7 @@ DelphiXE2=Y
 DelphiXE3=Y
 DelphiXE4=Y
 Delphi10S=Y
+Delphi12A=Y
 FPC=Y
 
 [ShiftByteArray]
@@ -299,6 +311,7 @@ DelphiXE2=Y
 DelphiXE3=Y
 DelphiXE4=Y
 Delphi10S=Y
+Delphi12A=Y
 FPC=Y
 
 [SliceByteArray]
@@ -322,6 +335,7 @@ DelphiXE2=Y
 DelphiXE3=Y
 DelphiXE4=Y
 Delphi10S=Y
+Delphi12A=Y
 FPC=Y
 
 [UnShiftByteArray]
@@ -345,6 +359,7 @@ DelphiXE2=Y
 DelphiXE3=Y
 DelphiXE4=Y
 Delphi10S=Y
+Delphi12A=Y
 FPC=Y
 
 [TArrayUtils]

collection/consts.ini

@@ -28,4 +28,5 @@ DelphiXE2=Y
 DelphiXE3=Y
 DelphiXE4=Y
 Delphi10S=Y
+Delphi12A=Y
 FPC=Y