mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-14 07:59:35 +02:00
LazUtils: Add a helper function RenderHTML2Text for class THTML2TextRenderer.
This commit is contained in:
parent
17f893cc02
commit
28dc8193a3
@ -68,8 +68,21 @@ type
|
||||
property IndentStep: integer read fIndentStep write fIndentStep;
|
||||
end;
|
||||
|
||||
function RenderHTML2Text(const AHTML: String): String;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
function RenderHTML2Text(const AHTML: String): String;
|
||||
begin
|
||||
with THTML2TextRenderer.Create(AHTML) do
|
||||
try
|
||||
Result:=Render;
|
||||
finally
|
||||
Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
{ THTML2TextRenderer }
|
||||
|
||||
constructor THTML2TextRenderer.Create(const aHTML: string);
|
||||
|
Loading…
Reference in New Issue
Block a user