TDecoderResult.Destroy - ByteSegments should not be cleared #153

Spelt · Aug 23, 2023 · a58e557 · a58e557
1 parent b2dc057
commit a58e557
Showing 1 changed file with 0 additions and 5 deletions.
diff --git a/Lib/Classes/Common/ZXing.DecoderResult.pas b/Lib/Classes/Common/ZXing.DecoderResult.pas
@@ -76,13 +76,8 @@ constructor TDecoderResult.Create(RawBytes: TArray<Byte>; const Text: string;
 
 destructor TDecoderResult.Destroy;
 begin
-  if Assigned(ByteSegments)
-  then
-     ByteSegments.Clear;
-
   RawBytes := nil;
   FreeAndNil(Other);
-
   inherited;
 end;