paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 20:29:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from Werner Pamler to fix getval

Browse Source 
git-svn-id: trunk@43141 -
This commit is contained in:
michael 2019-10-06 11:31:56 +00:00
parent 7ff2603c22
commit 0ccb7d951f
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
packages/chm/src/htmlutil.pas
View File

@ -119,11 +119,13 @@ begin
inc(S); // skip space
P:= S;
// Skip
// Skip tag name
while not (P^ in ['=', ' ', '>', #0]) do
inc(P);
if (P^ = '=') then inc(P);
// Skip spaces and '='
while (P^ in ['=', ' ']) do
inc(P);
while not (P^ in [' ','>',#0]) do
begin
@ -161,12 +163,15 @@ var
S: Pchar;
C: Char;
begin
Result := '';
P:= Pchar(namevalpair);
S:= StrPos(P, '=');
if S <> nil then
begin
inc(S); // skip equal
while S^ = ' ' do inc(S); // skip any spaces after =
P:= S; // set P to a character after =
if (P^ in ['"','''']) then
@ -181,9 +186,7 @@ begin
inc(P);
if (P <> S) then { Thanks to Dave Keighan (keighand@yahoo.com) }
Result:= CopyBuffer(S, P - S)
else
Result:= '';
Result:= CopyBuffer(S, P - S);
end;
end;