paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

chemtext: Less hints and warnings

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8122 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2021-10-27 13:52:00 +00:00
parent 88da99d33a
commit 1f45709f7c
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/chemtext/source/chemtext.pas
View File

@ -18,7 +18,7 @@
*******************************************************************************) *******************************************************************************)
unit chemtext; unit chemtext;
{$WARN 6058 off : Call to subroutine "$1" marked as inline is not inlined}
interface interface
uses uses
@ -140,7 +140,6 @@ type
const const
ARROW_LINE: array[boolean] of char = ('-', '='); ARROW_LINE: array[boolean] of char = ('-', '=');
SUBFONT_DIVISOR = 100;
ESCAPE_CHAR = '\'; ESCAPE_CHAR = '\';
SAVE_CURRENT_POS = '@'; SAVE_CURRENT_POS = '@';
@ -234,7 +233,7 @@ var
); );
var var
i: Integer; i: Integer;
s: String; s: String = '';
begin begin
if Arrow in [caASCIISingle, caASCIIDouble] then if Arrow in [caASCIISingle, caASCIIDouble] then
begin begin