delphi裏的字符串轉成html的方法

 

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