mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-09 23:38:23 +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;
|
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);
|
||||||
|
Loading…
Reference in New Issue
Block a user