本文整理自网络，侵删。
以下函数可以用于过滤字符里的HTML代码：
function FilterHTMLCode(HTML: string; AllowURL: Boolean): string;
var
UrlStart, UrlEnd: Integer;
TempStr: string;
begin
HTML := AnsiReplaceStr(HTML, '&', '&');
HTML := AnsiReplaceStr(HTML, '<', '<');
HTML := AnsiReplaceStr(HTML, '>', '>');
HTML := AnsiReplaceStr(HTML, #13, ' <br>');
HTML := AnsiReplaceStr(HTML, #32, ' ');
if AllowURL then
begin
TempStr := '';
UrlStart := AnsiPos('http://', LowerCase(HTML));
while UrlStart > 0 do
begin
TempStr := TempStr + Copy(HTML, 1, UrlStart - 1);
HTML := Copy(HTML, UrlStart, Length(HTML));
UrlEnd := AnsiPos(' ', HTML);
if UrlEnd <= 0 then
UrlEnd := Length(HTML) + 1;
TempStr := TempStr + '<a href="' + Copy(HTML, 1, UrlEnd - 1) +
'" target="_blank"><font color="#0000ff">' + Copy(HTML, 1, UrlEnd - 1)
+ '</font></a>';
HTML := Copy(HTML, UrlEnd, Length(HTML));
UrlStart := AnsiPos('http://', LowerCase(HTML));
end;
TempStr := TempStr + Copy(HTML, 1, Length(HTML));
Result := TempStr;
end
else
begin
Result := HTML;
end;
end;
相关阅读 >>
Delphi windows 编程[15] - 菜单消息: wm_command
Delphi 关于选择文件路径 selectdirectory 弹出窗口居中的问题
更多相关阅读请进入《Delphi》频道 >>
