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

[Mylwf]

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 + '<'
else if Str[i] = ' ' then
Result := Result + ' '
else if Str[i] = Chr(34) then
Result := Result + '"'
else if Str[i] = Chr(39) then
Result := Result + '''
else
Result := Result + Str[i];
end;
end;

[li_zhifu]

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

[li_zhifu]

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

[Mylwf]

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

[lws0472]

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

[Mylwf]

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