From ec31b7bdb645f547444ff1fd8b28567c2ee8666a Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 27 Oct 2021 16:33:18 +0000
Subject: [PATCH] lazbarcodes: Less hints and warnings.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8127 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/lazbarcodes/src/lbc_aztec.pas      | 12 +++----
 components/lazbarcodes/src/lbc_datamatrix.pas |  2 +-
 components/lazbarcodes/src/lbc_qr.pas         | 34 +++++++++----------
 3 files changed, 24 insertions(+), 24 deletions(-)

diff --git a/components/lazbarcodes/src/lbc_aztec.pas b/components/lazbarcodes/src/lbc_aztec.pas
index 0e10e11c3..1023a63a2 100644
--- a/components/lazbarcodes/src/lbc_aztec.pas
+++ b/components/lazbarcodes/src/lbc_aztec.pas
@@ -322,9 +322,9 @@ var
   lasttable: Integer;
   newtable: Integer;
   curtable: Integer;
-  typemap: array of Integer;
-  charmap: array of Integer;
-	blockmap: array [0..1] of array of integer;
+  typemap: array of Integer = nil;
+  charmap: array of Integer = nil;
+  blockmap: array [0..1] of array of integer = (nil, nil);
   adjusted: Integer;
 begin
   SetLength(typemap,src_len * 2-1);
@@ -1390,11 +1390,11 @@ var
   reader: Integer = 0;
   debug: Integer = 0;
   comp_loop: Integer = 4;
-  local_source: array of BYTE;
+  local_source: array of BYTE = nil;
   done: Integer = 0;
   t: Integer = 0;
-  ecc_part: array of Cardinal;
-  data_part: array of Cardinal;
+  ecc_part: array of Cardinal = nil;
+  data_part: array of Cardinal = nil;
 begin
   {INITCODE} reader := 0;
   {INITCODE} debug := 0;
diff --git a/components/lazbarcodes/src/lbc_datamatrix.pas b/components/lazbarcodes/src/lbc_datamatrix.pas
index ee6a0be3d..2e5942cf2 100644
--- a/components/lazbarcodes/src/lbc_datamatrix.pas
+++ b/components/lazbarcodes/src/lbc_datamatrix.pas
@@ -515,7 +515,7 @@ var
   edifact_p: Integer;
   edifact_buffer: array [0..8-1] of Integer;
   debug: Integer = 0;
-  binary: array of Char;
+  binary: array of Char = nil;
   value: Integer;
   shift_set: Integer;
   iv: Integer;
diff --git a/components/lazbarcodes/src/lbc_qr.pas b/components/lazbarcodes/src/lbc_qr.pas
index 21b89a9fc..323e3883f 100644
--- a/components/lazbarcodes/src/lbc_qr.pas
+++ b/components/lazbarcodes/src/lbc_qr.pas
@@ -478,7 +478,7 @@ var
   current_binlen: Integer;
   percent: Integer;
   toggle: Integer;
-  binary: array of Char;
+  binary: array of Char = nil;
   jis: Integer;
   prod: Integer;
   lsb: Integer;
@@ -823,10 +823,10 @@ var
   length_this_block: Integer = 0;
   j: Integer = 0;
   i: Integer = 0;
-  data_block: array of BYTE;
-  ecc_block: array of BYTE;
-  interleaved_data: array of Integer;
-  interleaved_ecc: array of Integer;
+  data_block: array of BYTE = nil;
+  ecc_block: array of BYTE = nil;
+  interleaved_data: array of Integer = nil;
+  interleaved_ecc: array of Integer = nil;
 begin
   {INITCODE} ecc_cw := qr_total_codewords[version - 1] - data_cw;
   {INITCODE} short_data_block_length := data_cw div blocks;
@@ -1252,7 +1252,7 @@ var
   dark_mods: Integer;
   k: Integer;
   percentage: Integer;
-  local: array of Char;
+  local: array of Char = nil;
 begin
   {INITCODE} resultcode := 0;
   SetLength(local,size * size);
@@ -1516,8 +1516,8 @@ var
   best_pattern: Integer;
   best_val: Integer;
   bit: Integer;
-  mask: array of BYTE;
-  eval: array of BYTE;
+  mask: array of BYTE = nil;
+  eval: array of BYTE = nil;
 begin
   SetLength(mask,size * size);
   SetLength(eval,size * size);
@@ -1760,12 +1760,12 @@ var
   ecc_level: Integer;
   gs1: Boolean;
   bitmask: Integer;
-  utfdata: array of Integer;
-  jisdata: array of Integer;
-  mode: array of Char;
-  datastream: array of Integer;
-  fullstream: array of Integer;
-  grid: array of BYTE;
+  utfdata: array of Integer = nil;
+  jisdata: array of Integer = nil;
+  mode: array of Char = nil;
+  datastream: array of Integer = nil;
+  fullstream: array of Integer = nil;
+  grid: array of BYTE = nil;
 begin
   SetLength(utfdata,length + 1);
   SetLength(jisdata,length + 1);
@@ -3010,8 +3010,8 @@ var
   best_pattern: Integer;
   best_val: Integer;
   bit: Integer;
-  mask: array of BYTE;
-  eval: array of BYTE;
+  mask: array of BYTE = nil;
+  eval: array of BYTE = nil;
 begin
   SetLength(mask,size * size);
   SetLength(eval,size * size);
@@ -3158,7 +3158,7 @@ var
   bitmask: Integer;
   a_count: Integer;
   n_count: Integer;
-  grid: array of BYTE;
+  grid: array of BYTE = nil;
 begin
   {INITCODE} byte_used := 0;
   {INITCODE} alphanum_used := 0;