fast-html-parser
fast-html-parser copied to clipboard
z505
Fast HTML Parser for FPC and Delphi
Hi, This code returns **** and an empty **HtmlTagEnd** as output instead of an empty string and `` for **HtmlTagEnd**. ``` procedure doHTML; const RawHTML = '' + #13#10 +...
add 'const' for str params in all funcs where S is not changed. ``` function IsTag(TagType: string; Tag: string): boolean; function IsCloseTag(TagType: string; Tag: string): boolean; function Substr(sub, s: string):...
``` TOnFoundTag = procedure(NoCaseTag, ActualTag: string) of object; // procedural: TOnFoundTagP = procedure(NoCaseTag, ActualTag: string); // when text found in the HTML TOnFoundText = procedure(Text: string) of object; // procedural:...
E.g. "html_" prefix function IsTag(TagType: string; Tag: string): boolean; function IsCloseTag(TagType: string; Tag: string): boolean; -> function html_IsTag(TagType: string; Tag: string): boolean; function html_IsCloseTag(TagType: string; Tag: string): boolean;