paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-27 13:00:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

replaced StrLComp by CompareLPChar

Browse Source 
git-svn-id: trunk@4907 -
This commit is contained in:
mattias 2003-12-19 09:06:07 +00:00
parent fe171fa232
commit 2573d5f219
1 changed files with 61 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

64
components/codetools/laz_xmlread.pas
View File

@ -66,7 +66,7 @@ const
NmToken: set of Char = Letter + Digit + ['.', '-', '_', ':'];
function CompareIPChar(p1, p2: PChar): boolean;
function ComparePChar(p1, p2: PChar): boolean;
begin
if p1<>p2 then begin
if (p1<>nil) and (p2<>nil) then begin
@ -93,7 +93,7 @@ begin
end;
end;
function CompareLIPChar(p1, p2: PChar; Max: integer): boolean;
function CompareLPChar(p1, p2: PChar; Max: integer): boolean;
begin
if p1<>p2 then begin
if (p1<>nil) and (p2<>nil) then begin
@ -121,6 +121,61 @@ begin
end;
end;
function CompareIPChar(p1, p2: PChar): boolean;
begin
if p1<>p2 then begin
if (p1<>nil) and (p2<>nil) then begin
while true do begin
if (p1^=p2^) or (upcase(p1^)=upcase(p2^)) then begin
if p1^<>#0 then begin
inc(p1);
inc(p2);
end else begin
Result:=true;
exit;
end;
end else begin
Result:=false;
exit;
end;
end;
Result:=true;
end else begin
Result:=false;
end;
end else begin
Result:=true;
end;
end;
function CompareLIPChar(p1, p2: PChar; Max: integer): boolean;
begin
if p1<>p2 then begin
if (p1<>nil) and (p2<>nil) then begin
while Max>0 do begin
if (p1^=p2^) or (upcase(p1^)=upcase(p2^)) then begin
if (p1^<>#0) then begin
inc(p1);
inc(p2);
dec(Max);
end else begin
Result:=true;
exit;
end;
end else begin
Result:=false;
exit;
end;
end;
Result:=true;
end else begin
Result:=false;
end;
end else begin
Result:=true;
end;
end;
type
TXMLReaderDocument = class(TXMLDocument)
@ -263,7 +318,7 @@ end;
function TXMLReader.CheckFor(s: PChar): Boolean;
begin
if buf[0] <> #0 then begin
if (buf[0]=s[0]) and (StrLComp(buf, s, StrLen(s)) = 0) then begin
if (buf[0]=s[0]) and (CompareLPChar(buf, s, StrLen(s))) then begin
Inc(buf, StrLen(s));
Result := True;
end else
@ -1363,6 +1418,9 @@ end.
{
$Log$
Revision 1.10 2003/12/19 09:06:07 mattias
replaced StrLComp by CompareLPChar
Revision 1.9 2003/12/18 23:47:03 mattias
added classes incpath