"<" in TField.AsString output as &lt; in Word

WEB TMS WEB Core
1

Hi + tx for support!

I am unsure where to convert. I have a TWebDataSet with a field DESCRIPTION. Within the TwebDBGrid the sonderzeichen are displayed ok. But when I want to add the text to a Word doc using paragraph.AddText(cdsRezept.FieldByName('bezeichnung').AsString) the < is output as &lt.

What do I have to do, to get the original text in the Word doc, too?

2

Addition:

I am translating descriptions, that otiginally contain "<" and the translation returns this as &lt. However, in the grid this is displayed as <, but the word component renders this unchanged as &lt.

Am I supposed to HTMLDecode all text?

3

I tried to do this:

uses
  WR.Datasets.JSON, System.NetEncoding;


function HTMLDecode(s:string):String;
begin
  result:=TNetEncoding.HTML.Decode(s);
end;

Unfortunately this does not compile:
[Fehler] WR.Utils.pas(97): identifier not found "HTML"

4

How do you get from TWebDataSet (I assume TWebClientDataSet?) to Word?

Also, what is WR.Utils.pas, WR.Datasets.JSON, .. these are not TMS WEB Core units.

Also, TNetEncoding.HTML is at this moment not a part of the pas2js RTL, so it can't be used in TMS WEB Core.

You could use this function to do the conversion:

function DecodeHTMLEntities(const AStr: string): string;
var
  TextArea: TJSHTMLTextAreaElement;
begin
  TextArea := TJSHTMLTextAreaElement(Document.createElement('textarea'));
  TextArea.innerHTML := AStr;
  Result := TextArea.value;
end;
5

This is how I add the text to Word:

The WR.* are some of my own units.

Tx for the function.

Is it planned, that Word substitutes the encodings?

6

I assume from this single line of code that you use TMS FNC WX Pack's docx generator component?

We will investigate & consider for a future update.

8

Yes, Bruno, it is TMS FNC WX Pack's docx .

9 
function DecodeHTMLEntities(const AStr: string): string;
var
  TextArea: TJSHTMLTextAreaElement;
begin
  TextArea := TJSHTMLTextAreaElement(Document.createElement('textarea'));
  TextArea.innerHTML := AStr;
  Result := TextArea.value;
end;

What units must I use, to get this compiled?

10

web.pas

11

Yes, I thought so, but the IDE underlines thsi as an unknown identifier, so I was unsure. However, the compile succeeds.

Thank you!