paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 10:19:22 +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

11
components/turbopower_ipro/iphtmlparser.pas
View File

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