求教大侠！我这样写的一个字符串替换函数为什么不起作用？？？奇怪！！！
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;
问题点数：20、回复次数：5Top
1 楼li_zhifu（东北人）回复于 2002-11-08 12:39:50 得分 5
在字符串里是没有回车（chr(13))的Top
2 楼li_zhifu（东北人）回复于 2002-11-08 12:46:51 得分 0
可以这样
if Str[i] = #13#10 then
Result := Result+'<BR>'Top
3 楼Mylwf（路漫漫）回复于 2002-11-08 12:48:02 得分 0
关键问题是，我用该函数返回的字符串用 ShowMessage什么也看不到Top
4 楼lws0472（期待2008）回复于 2002-11-08 12:50:18 得分 15
s[0]放字符串的长度那是老版本了,应该为：
for i := 1 to Length(Str) doTop
5 楼Mylwf（路漫漫）回复于 2002-11-08 12:59:11 得分 0
太谢谢lws0472(天外飞仙)了！！！！！！！！！Top
