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

spktoolbar: Less hints and warnings

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6174 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-02-05 12:05:26 +00:00
parent e6b9f9169d
commit fdee2dddbe
13 changed files with 101 additions and 96 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
components/spktoolbar/SpkXML/SpkXMLParser.pas
View File

@ -2,6 +2,7 @@ unit SpkXMLParser;
{$mode Delphi}
{$DEFINE SPKXMLPARSER}
{$WARN 4055 off : Conversion between ordinals and pointers is not portable}
interface
@ -1500,7 +1501,7 @@ try
// Oczekujemy nazwy taga, kt�ra jest postaci
// [a-zA-Z]([a-zA-Z0-9_]|([\-:][a-zA-Z0-9_]))*
if not(input^ in ['a'..'z','A'..'Z']) then
if not (input^ in ['a'..'z','A'..'Z']) then
raise exception.create('B��d w sk�adni XML (linia '+IntToStr(ParseLine)+', znak '+IntToStr(ParseChar)+') : Nieprawid�owa nazwa taga!');
TokenStart:=input;
@ -1515,8 +1516,8 @@ try
end;
until not(input^ in ['a'..'z','A'..'Z','0'..'9','_']);
setlength(s,integer(input)-integer(TokenStart));
StrLCopy(PChar(s),TokenStart,integer(input)-integer(TokenStart));
SetLength(s, PtrUInt(input)-PtrUInt(TokenStart));
StrLCopy(PChar(s),TokenStart, PtrUInt(input)-PtrUInt(TokenStart));
Node.Name:=s;
// Plik nie mo�e si� tu ko�czy�.
@ -1546,8 +1547,8 @@ try
increment(input)
until not(input^ in ['a'..'z','A'..'Z','0'..'9','_']);
setlength(s,integer(input)-integer(TokenStart));
StrLCopy(PChar(s),TokenStart,integer(input)-integer(TokenStart));
SetLength(s, {%H-}PtrUInt(input)-{%H-}PtrUInt(TokenStart));
StrLCopy(PChar(s), TokenStart, {%H-}PtrUInt(input)-{%H-}PtrUInt(TokenStart));
// Pomijamy bia�e znaki
while input^ in [#32,#9,#13,#10] do increment(input);
@ -1676,8 +1677,8 @@ try
until input^='-';
until StrLComp(input,'-->',3)=0;
setlength(s,integer(input)-integer(TokenStart));
StrLCopy(PChar(s),TokenStart,integer(input)-integer(TokenStart));
setlength(s, PtrUInt(input)-PtrUInt(TokenStart));
StrLCopy(PChar(s),TokenStart, PtrUInt(input)-PtrUInt(TokenStart));
Node.Text:=s;
// Pomijamy znaki zako�czenia komentarza
@ -1721,8 +1722,8 @@ try
end;
until not(input^ in ['a'..'z','A'..'Z','0'..'9','_']);
setlength(s,integer(input)-integer(TokenStart));
StrLCopy(PChar(s),TokenStart,integer(input)-integer(TokenStart));
SetLength(s, PtrUInt(input)-PtrUInt(TokenStart));
StrLCopy(PChar(s),TokenStart, PtrUInt(input)-PtrUInt(TokenStart));
// Pomijamy zb�dne znaki bia�e
while input^ in [#32,#9,#10,#13] do increment(input);