23. Oktober 2008 13:49
23. Oktober 2008 15:35
23. Oktober 2008 16:08
23. Oktober 2008 16:38
24. Oktober 2008 12:06
24. Oktober 2008 13:37
29. Oktober 2008 15:51
3. August 2023 11:30
// -
IF NOT IsXMLUTF8 THEN
// +
SetupDataXML.loadXML(
'<?xml version="1.0" encoding="UTF-16" standalone="yes"?><DataList>' + LocXML + '</DataList>')
// -
ELSE
SetupDataXML.loadXML(
'<?xml version="1.0" encoding="UTF-8" standalone="yes"?><DataList>' + LocXML + '</DataList>');
// +
3. August 2023 16:18
FieldNode := SetupDataXML.createElement(GetElementName(FieldRef.NAME));
// -
//FieldNode.text := FORMAT(FieldRef.VALUE);
FieldNode.text := RemoveControlChars(FORMAT(FieldRef.VALUE));
// +
RemoveControlChars(t : Text[1024]) : Text[1024]
Ch[1] := 8; // BS Backspace
Ch[2] := 9; // TAB
Ch[3] := 10; // LF
Ch[4] := 11; // VT Vertical Tab
Ch[5] := 12; // FF Form Feed
Ch[6] := 13; // CR
Ch[7] := 14; // SI Shift in
Ch[8] := 15; // SO Shift out
EXIT(DELCHR(t, '=', Ch));