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

TurboPower_ipro: Remove useless code from TIpHtmlParser.ParseHead.

Browse Source
This commit is contained in:
Juha 2024-02-06 11:59:47 +02:00
parent aecb1d9473
commit 4a639e70c5
1 changed files with 2 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/turbopower_ipro/iphtmlparser.pas
View File

@ -1594,8 +1594,6 @@ begin
end;
procedure TIpHtmlParser.ParseHead(AParent: TIpHtmlNode);
var
L: TStringListUTF8Fast;
begin
{lead token is optional}
if FCurToken = IpHtmlTagHEAD then begin
@ -1604,15 +1602,8 @@ begin
if FCurToken = IpHtmlTagHEADend then
NextToken;
end;
L := TStringListUTF8Fast.Create;
try
GetSupportedEncodings(L);
if L.IndexOf(FDocCharset) = 0 then // clear for UTF-8 to avoid conversion
FDocCharset := '';
finally
L.Free;
end;
if SameText(FDocCharset, 'UTF-8') then // clear for UTF-8 to avoid conversion
FDocCharset := '';
end;
procedure TIpHtmlParser.ParseHeader(AParent: TIpHtmlNode; EndToken: TIpHtmlToken;