TBitArrayImplementation.ensureCapacity - Count for Move must multipli…

…ed by element size in bytes #151
Spelt · Aug 23, 2023 · abc7617 · abc7617
1 parent 97e640b
commit abc7617
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Lib/Classes/Common/ZXing.Common.BitArrayImplementation.pas b/Lib/Classes/Common/ZXing.Common.BitArrayImplementation.pas
@@ -83,7 +83,7 @@ procedure TBitArrayImplementation.ensureCapacity(size: Integer);
   if (size > TMathUtils.Asr(Length(Fbits), 5)) then
   begin
     newBits := makeArray(size);
-    Move(Fbits[0], newBits[0], Length(Fbits));
+    Move(Fbits[0], newBits[0], Length(Fbits) * SizeOf(Fbits[0]));
     Fbits := newBits;
   end;
 end;