From ce56ae53c453c3c695243e57c3e139566fc3b759 Mon Sep 17 00:00:00 2001 From: Vladimir B Date: Sun, 23 Dec 2018 17:54:51 +0200 Subject: [PATCH 1/2] Litle Fix --- HtmlParserEx.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/HtmlParserEx.pas b/HtmlParserEx.pas index e976391..5befd28 100644 --- a/HtmlParserEx.pas +++ b/HtmlParserEx.pas @@ -2296,7 +2296,7 @@ function TSourceContext.ReadStr(UntilChars: TSysCharSet): string; else stringChar := #0; IncSrc; - while True do + while FCodeIndex < Length(FCode) do begin if stringChar = #0 then begin From e3dcc2dc9effdb744538d48ca10e2a6e077fe6cb Mon Sep 17 00:00:00 2001 From: Vladimir B Date: Wed, 2 Jan 2019 13:52:26 +0200 Subject: [PATCH 2/2] Update HtmlParserEx.pas --- HtmlParserEx.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/HtmlParserEx.pas b/HtmlParserEx.pas index 5befd28..68d560f 100644 --- a/HtmlParserEx.pas +++ b/HtmlParserEx.pas @@ -2296,7 +2296,7 @@ function TSourceContext.ReadStr(UntilChars: TSysCharSet): string; else stringChar := #0; IncSrc; - while FCodeIndex < Length(FCode) do + while CodeIndex < Length(Code) do begin if stringChar = #0 then begin