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

TurboPower_ipro: Remove useless code from TIpHtmlParser.ParseHead.

Browse Source 
(cherry picked from commit 4a639e70c5)
This commit is contained in:
Juha 2024-02-06 11:59:47 +02:00 committed by Maxim Ganetsky
parent 6a97f94583
commit cfb33e6975
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;