paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-13 17:28:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazUtils: Add a helper function RenderHTML2Text for class THTML2TextRenderer.

Browse Source
This commit is contained in:
Juha 2022-02-06 12:38:47 +02:00
parent 17f893cc02
commit 28dc8193a3
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/lazutils/html2textrender.pas
View File

@ -68,8 +68,21 @@ type
property IndentStep: integer read fIndentStep write fIndentStep; property IndentStep: integer read fIndentStep write fIndentStep;
end; end;
function RenderHTML2Text(const AHTML: String): String;
implementation implementation
function RenderHTML2Text(const AHTML: String): String;
begin
with THTML2TextRenderer.Create(AHTML) do
try
Result:=Render;
finally
Free;
end;
end;
{ THTML2TextRenderer } { THTML2TextRenderer }
constructor THTML2TextRenderer.Create(const aHTML: string); constructor THTML2TextRenderer.Create(const aHTML: string);