LazBarcodes: Fix Telepen max length error.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8212 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2022-03-16 16:49:25 +00:00
parent 5e5e918dd5
commit 9c3a384cf7
1 changed files with 1 additions and 1 deletions
--- a/components/lazbarcodes/src/lbc_telepen.pas
+++ b/components/lazbarcodes/src/lbc_telepen.pas
@ -75,7 +75,7 @@ var
  i: Integer;
 begin
  for i := 1 to Length(ASource) do
-    if ASource[i] > #126 then
+    if ASource[i] > #127 then       // wp: was #126, but this is against doc. 
    begin
      // Cannot encode extended ASCII
      ASymbol^.SetErrorText('Invalid characters in input data.');