Delphi HTML转义

本文整理自网络，侵删。

 
function torehtml(const strHTML: string): string;
begin
  Result :=strHTML;
  Result := StringReplace(Result, '"', '"',  [rfReplaceAll]);
  Result := StringReplace(Result, '''', ''', [rfReplaceAll]);
  Result := StringReplace(Result, '>',   '>',  [rfReplaceAll]);
  Result := StringReplace(Result, '<',   '&lt;',  [rfReplaceAll]);
  Result := StringReplace(Result, '&',  '&amp;',  [rfReplaceAll]);
end;

常用HTML转义对照表
字符
十进制
转义字符
"
"
"
&
&
&
<
<
<
>
>
>
不断开空格(non-breaking space)
 
 
 

相关阅读 >>

Delphi 遍历所有目录和子目录下的文件名（可按后缀名遍历）

Delphi图片base64编码

Delphi 计算运行耗时的方法1

Delphi拖动窗体超简单实现

Delphi 如何删除动态数组的指定元素

Delphi dll初始化和退出处理

Delphi tms web core webmemo 横竖滚动条

Delphi外挂编写

Delphi实现图像反色实例4种方法

检查是否在Delphi xe7中启用或禁用了android蓝牙

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi HTML转义