delphi里的字符串转成html的方法

最新推荐文章于 2021-07-01 09:29:26 发布

xiaofenguser

最新推荐文章于 2021-07-01 09:29:26 发布

阅读量1.3k

点赞数

分类专栏：流水账文章标签： delphi html function string

本文链接：https://blog.csdn.net/xiaofenguser/article/details/1476302

版权

流水账专栏收录该内容

2 篇文章 0 订阅

订阅专栏

function FrmToHtml(str: string):WideString;
begin
Result := str;
Result := StringReplace(Result, '&', '&', [rfReplaceAll]);
Result := StringReplace(Result, '>', '>', [rfReplaceAll]);
Result := StringReplace(Result, '<', '<', [rfReplaceAll]);
Result := StringReplace(Result, '"', '"', [rfReplaceAll]);
Result := StringReplace(Result, ' ', ' ', [rfReplaceAll]);
Result := StringReplace(Result, char(13), ' ', [rfReplaceAll]);
end;