paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-03 19:07:27 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Fix 2 bugs: wrong index in extended code 93 encoding, copy paste error in checksum

Browse Source 
git-svn-id: trunk@55900 -
This commit is contained in:
michael 2017-09-23 14:08:28 +00:00
parent 3956dc2480
commit da96cd01b1
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/lazreport/source/barcode.pas
View File

@ -1181,7 +1181,7 @@ begin
weightC := 1;
Inc(weightK);
if weightK > 15 then
weightC := 1;
weightK := 1;
end;
Inc(checkK, checkC);
@ -1229,7 +1229,7 @@ begin
FText := '';
for i := 0 to Length(save) - 1 do
for i := 1 to Length(save) do
begin
if Ord(save[i]) <= 127 then
FText := FText + code93x[Ord(save[i])];