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

 更新时间:2020年02月15日 14:42:22   作者:jack kwok  
今天小编就为大家分享一篇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 字符串处理中的怪异现象与处理方式就是小编分享给大家的全部内容了,希望能给大家一个参考,也希望大家多多支持脚本之家。

相关文章

最新评论