pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

lazbarcodes: Less hints and warnings.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8127 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2021-10-27 16:33:18 +00:00
parent 1626e8ab2f
commit ec31b7bdb6
3 changed files with 24 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
components/lazbarcodes/src/lbc_aztec.pas
View File

@ -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;

2
components/lazbarcodes/src/lbc_datamatrix.pas
View File

@ -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;

34
components/lazbarcodes/src/lbc_qr.pas
View File

@ -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;