FMX.TMSGridDataUtil.pas与FMX.TMSHTMLEngine.pas修改

最新推荐文章于 2024-09-24 08:16:16 发布

zflybird

最新推荐文章于 2024-09-24 08:16:16 发布

阅读量467

点赞数 2

文章标签： delphi

本文链接：https://blog.csdn.net/zflybird/article/details/122366270

版权

本文档探讨了如何在Delphi的FMX库中，针对TMSGridDataUtil和TMSHTMLEngine组件，优化HTML字符转义和特殊字符替换过程。作者分享了源码中的关键修改，并提供了新的HTMLEncodedChar和HTMLSpecialChar数组，以确保正确且兼容的HTML输出。

摘要由CSDN通过智能技术生成

delphi tms for fmx控件中

FMX.TMSGridDataUtil.pas

源码中的显示？？？？，改为如下：

var
HTMLEncodedChar : array[1..HTMLNumSpecialChar] of unicodestring = ('&','<','>','"',' ',
Char($E9),Char($E8),Char($EB),Char($EA),
Char($F3),Char($F2),Char($F6),Char($F4),
Char($ED),Char($EC),Char($EF),Char($EE),
Char($FA),Char($F9),Char($FC),Char($FB),
Char($E1),Char($E0),Char($E4),Char($E2),
Char($C9),Char($C8),Char($CB),Char($CA),
Char($D3),Char($D2),Char($D6),Char($D4),
Char($CD),Char($CC),Char($CF),Char($CE),
Char($DA),Char($D9),Char($DC),Char($DB),
Char($C1),Char($C0),Char($C4),Char($C2),
Char($E7),Char($C7),Char($F8),Char($D8),
Char($E5),Char($C5),Char($A9),Char($AE),
Char($80),Char($AB),Char($BB),Char($E3),
Char($C3),Char($F5),Char($D5), #153,
#167, #182);

HTMLSpecialChar : array[1..HTMLNumSpecialChar] of string = ('amp;','lt;','gt;','quot;',' ',
'é','è','ë','ê',
'ó','ò','ö','ô',
'í','ì','ï','î',
'ú','ù','ü','û',
'á','à','ä','â',
'É','È','Ë','Ê',
'Ó','Ò','Ö','Ô',
'Í','Ì','Ï','Î',
'Ú','Ù','Ü','Û',
'Á','À','Ä','Â',
'ç','Ç','ø','Ø',
'å','Å','©','®',
'€','«','»','ã',
'Ã','õ','&Otilde','™',
'§','¶');

FMX.TMSHTMLEngine.pas

源码中的显示？？？？，改为如下：

function ConvertHTMLSpecialChars(s: string): string;
const
NumSpecialChar = 72;

HTMLEncodedChar : array[1..72] of string = (Char($E9),Char($E8),Char($EB),Char($EA),
Char($F3),Char($F2),Char($F6),Char($F4),
Char($ED),Char($EC),Char($EF),Char($EE),
Char($FA),Char($F9),Char($FC),Char($FB),
Char($E1),Char($E0),Char($E4),Char($E2),
Char($C9),Char($C8),Char($CB),Char($CA),
Char($D3),Char($D2),Char($D6),Char($D4),
Char($CD),Char($CC),Char($CF),Char($CE),
Char($DA),Char($D9),Char($DC),Char($DB),
Char($C1),Char($C0),Char($C4),Char($C2),
Char($E7),Char($C7),Char($F8),Char($D8),
Char($E5),Char($C5),Char($A9),Char($AE),
Char($80),Char($AB),Char($BB),Char($E3),
Char($C3),Char($F5),Char($D5),Char(223),
#153, #163, #36, #167,
#137, #182, #34, #39,
#165, #164, #162, #177,
#161, #171, #187, #176);

HTMLSpecialChar : array[1..72] of string = ('é','è','ë','ê',
'ó','ò','ö','ô',
'í','ì','ï','î',
'ú','ù','ü','û',
'á','à','ä','â',
'É','È','Ë','Ê',
'Ó','Ò','Ö','Ô',
'Í','Ì','Ï','Î',
'Ú','Ù','Ü','Û',
'Á','À','Ä','Â',
'ç','Ç','ø','Ø',
'å','Å','©','®',
'€','«','»','ã',
'Ã','õ','&Otilde','ß',
'™','£','&dollar;','§',
'&permil;','¶','"',''',
'¥','¤','¢','±',
'¡','«','»','°');