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; lasttable: Integer;
newtable: Integer; newtable: Integer;
curtable: Integer; curtable: Integer;
typemap: array of Integer; typemap: array of Integer = nil;
charmap: array of Integer; charmap: array of Integer = nil;
blockmap: array [0..1] of array of integer; blockmap: array [0..1] of array of integer = (nil, nil);
adjusted: Integer; adjusted: Integer;
begin begin
SetLength(typemap,src_len * 2-1); SetLength(typemap,src_len * 2-1);
@ -1390,11 +1390,11 @@ var
reader: Integer = 0; reader: Integer = 0;
debug: Integer = 0; debug: Integer = 0;
comp_loop: Integer = 4; comp_loop: Integer = 4;
local_source: array of BYTE; local_source: array of BYTE = nil;
done: Integer = 0; done: Integer = 0;
t: Integer = 0; t: Integer = 0;
ecc_part: array of Cardinal; ecc_part: array of Cardinal = nil;
data_part: array of Cardinal; data_part: array of Cardinal = nil;
begin begin
{INITCODE} reader := 0; {INITCODE} reader := 0;
{INITCODE} debug := 0; {INITCODE} debug := 0;

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

@ -515,7 +515,7 @@ var
edifact_p: Integer; edifact_p: Integer;
edifact_buffer: array [0..8-1] of Integer; edifact_buffer: array [0..8-1] of Integer;
debug: Integer = 0; debug: Integer = 0;
binary: array of Char; binary: array of Char = nil;
value: Integer; value: Integer;
shift_set: Integer; shift_set: Integer;
iv: Integer; iv: Integer;

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

@ -478,7 +478,7 @@ var
current_binlen: Integer; current_binlen: Integer;
percent: Integer; percent: Integer;
toggle: Integer; toggle: Integer;
binary: array of Char; binary: array of Char = nil;
jis: Integer; jis: Integer;
prod: Integer; prod: Integer;
lsb: Integer; lsb: Integer;
@ -823,10 +823,10 @@ var
length_this_block: Integer = 0; length_this_block: Integer = 0;
j: Integer = 0; j: Integer = 0;
i: Integer = 0; i: Integer = 0;
data_block: array of BYTE; data_block: array of BYTE = nil;
ecc_block: array of BYTE; ecc_block: array of BYTE = nil;
interleaved_data: array of Integer; interleaved_data: array of Integer = nil;
interleaved_ecc: array of Integer; interleaved_ecc: array of Integer = nil;
begin begin
{INITCODE} ecc_cw := qr_total_codewords[version - 1] - data_cw; {INITCODE} ecc_cw := qr_total_codewords[version - 1] - data_cw;
{INITCODE} short_data_block_length := data_cw div blocks; {INITCODE} short_data_block_length := data_cw div blocks;
@ -1252,7 +1252,7 @@ var
dark_mods: Integer; dark_mods: Integer;
k: Integer; k: Integer;
percentage: Integer; percentage: Integer;
local: array of Char; local: array of Char = nil;
begin begin
{INITCODE} resultcode := 0; {INITCODE} resultcode := 0;
SetLength(local,size * size); SetLength(local,size * size);
@ -1516,8 +1516,8 @@ var
best_pattern: Integer; best_pattern: Integer;
best_val: Integer; best_val: Integer;
bit: Integer; bit: Integer;
mask: array of BYTE; mask: array of BYTE = nil;
eval: array of BYTE; eval: array of BYTE = nil;
begin begin
SetLength(mask,size * size); SetLength(mask,size * size);
SetLength(eval,size * size); SetLength(eval,size * size);
@ -1760,12 +1760,12 @@ var
ecc_level: Integer; ecc_level: Integer;
gs1: Boolean; gs1: Boolean;
bitmask: Integer; bitmask: Integer;
utfdata: array of Integer; utfdata: array of Integer = nil;
jisdata: array of Integer; jisdata: array of Integer = nil;
mode: array of Char; mode: array of Char = nil;
datastream: array of Integer; datastream: array of Integer = nil;
fullstream: array of Integer; fullstream: array of Integer = nil;
grid: array of BYTE; grid: array of BYTE = nil;
begin begin
SetLength(utfdata,length + 1); SetLength(utfdata,length + 1);
SetLength(jisdata,length + 1); SetLength(jisdata,length + 1);
@ -3010,8 +3010,8 @@ var
best_pattern: Integer; best_pattern: Integer;
best_val: Integer; best_val: Integer;
bit: Integer; bit: Integer;
mask: array of BYTE; mask: array of BYTE = nil;
eval: array of BYTE; eval: array of BYTE = nil;
begin begin
SetLength(mask,size * size); SetLength(mask,size * size);
SetLength(eval,size * size); SetLength(eval,size * size);
@ -3158,7 +3158,7 @@ var
bitmask: Integer; bitmask: Integer;
a_count: Integer; a_count: Integer;
n_count: Integer; n_count: Integer;
grid: array of BYTE; grid: array of BYTE = nil;
begin begin
{INITCODE} byte_used := 0; {INITCODE} byte_used := 0;
{INITCODE} alphanum_used := 0; {INITCODE} alphanum_used := 0;