求教大侠！我这样写的一个字符串替换函数为什么不起作用？？？奇怪！！！

Question

function ReplaceStr(const Str: string): string;
var
  i: integer;
begin
  Result := '';
  for i := 0 to Length(Str) - 1 do
    begin
      if Str[i] = Chr(13) then
        Result := Result + '<Br>'
      else if Str[i] = '<' then
        Result := Result + '&lt;'
      else if Str[i] = ' ' then
        Result := Result + '&nbsp;'
      else if Str[i] = Chr(34) then
        Result := Result + '&quot;'
      else if Str[i] = Chr(39) then
        Result := Result + '&#39;'
      else
        Result := Result + Str[i];
    end;
end;

Answer 1

在字符串里是没有回车（chr(13))的

Answer 2

可以这样
  if Str[i] = #13#10 then
    Result := Result+'<BR>'

Answer 3

关键问题是，我用该函数返回的字符串用 ShowMessage什么也看不到

Answer 4

s[0]放字符串的长度那是老版本了,应该为：
for i := 1 to Length(Str) do

Answer 5

太谢谢lws0472(天外飞仙)了！！！！！！！！！