MBonaldo/hfs2
1
0
Fork 0
mirror of https://github.com/rejetto/hfs2.git synced 2025-12-19 10:03:56 +01:00
Code Issues Packages Projects Releases Wiki Activity

fix: 'no list' section flag should be inherited

Browse Source
This commit is contained in:
Massimo Melina 2020-06-10 12:18:54 +02:00
parent e29e86c0bd
commit 6d91b0da6e
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
classesLib.pas
View File

@ -192,7 +192,7 @@ type
ThttpClient = class(TSslHttpCli) ThttpClient = class(TSslHttpCli)
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
destructor destroy; destructor Destroy; override;
class function createURL(url:string):ThttpClient; class function createURL(url:string):ThttpClient;
end; end;
@ -238,11 +238,11 @@ agent:=HFS_HTTP_AGENT;
SslContext := TSslContext.Create(NIL); SslContext := TSslContext.Create(NIL);
end; // create end; // create
destructor ThttpClient.destroy; destructor ThttpClient.Destroy;
begin begin
SslContext.free; SslContext.free;
SslContext:=NIl; SslContext:=NIl;
inherited; inherited destroy;
end; end;
constructor TperIp.create(); constructor TperIp.create();
@ -1058,6 +1058,7 @@ var
sect.txt:=from.txt+base.txt; sect.txt:=from.txt+base.txt;
sect.nolog:=from.nolog or base.nolog; sect.nolog:=from.nolog or base.nolog;
sect.nourl:=from.nourl or base.nourl; sect.nourl:=from.nourl or base.nourl;
sect.noList:=from.noList or base.noList;
continue; continue;
end; end;
sect^:=base; sect^:=base;
@ -1066,13 +1067,12 @@ var
end; // saveInSection end; // saveInSection
const const
BOM = #$EF#$BB#$BF; UTF8_BOM = #$EF#$BB#$BF;
var var
first: boolean; first: boolean;
begin begin
// this is used by some unicode files. at the moment we just ignore it. if ansiStartsStr(UTF8_BOM, txt) then
if ansiStartsStr(BOM, txt) then delete(txt, 1, length(UTF8_BOM));
delete(txt, 1, length(BOM));
if txt = '' then exit; if txt = '' then exit;
src:=src+txt; src:=src+txt;