delphi 字符串处理中的怪异现象与处理方式

1， 怪异现象：字符串相加操作不正常！

以上代码，明显输出字符串应含有后缀“.jpg”，但实际输出却不含后缀（如下），字符串加法操作似乎不起作用了！

采用showMessage进行输出，看看结果如何？

结果仍是不显示字符串后缀，但可以看到字符串偏左显示，似乎后面还有很多不可见字符。

2，怪异原因：字符串中含有\0，即字符串终止符

以上现象已经看出，字符串加法失效的原因可能是含有某些不可见字符，那到底是什么字符呢？

回到这些字符串产生的源头，即下面由字节数组转换成字符串函数：

显然，此函数未考虑len长度以内可能含有的\0字符，如果buffer中len长度以内含有\0字符，那么这些\0字符也会被复制进result字符串中，造成后续字符串加法“失效”。

3，解决方案：修改函数

将函数修改如下，判断逐字节判断buffer，遇到\0就返回，这样转换的字符串就不含\0了。问题解决。

//字节转换为字符串 $D4 $C1--> '粤'
function BytesToString(buffer: Array of byte; offset:integer; len: integer): string;
var
 str: string;
 i : Integer;
begin
 SetLength(str, len);
 for i:=0 to len-1 do
 begin
 if buffer[offset-1+i]=0 then break; //遇到ASCII 0不再复制！
 Move(buffer[offset-1+i], str[1+i], 1);//注意，这里是从str[1]开始复制的
 end;
 //Move(buffer[offset-1], str[1], len);//注意，这里是从str[1]开始复制的
 //ShowMessage (str);

 SetLength(str, i);
 result := str;
end;

以上这篇delphi 字符串处理中的怪异现象与处理方式就是小编分享给大家的全部内容了，希望能给大家一个参考，也希望大家多多支持呐喊教程。

声明：本文内容来源于网络，版权归原作者所有，内容由互联网用户自发贡献自行上传，本网站不拥有所有权，未作人工编辑处理，也不承担相关法律责任。如果您发现有涉嫌版权的内容，欢迎发送邮件至：notice#nhooo.com（发邮件时，请将#更换为@）进行举报，并提供相关证据，一经查实，本站将立刻删除涉嫌侵权内容。