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, '<', '<', [rfReplaceAll]);

Result := StringReplace(Result, '&', '&', [rfReplaceAll]);

end;

常用HTML转义对照表

推荐分享