delphi 字符串处理中的怪异现象与处理方式
<p><strong>1， 怪异现象：字符串相加操作不正常！</strong></p><p><img alt="" src="https://img.jbzj.com/file_images/article/202002/20200215143929.jpg" /></p>
<p>以上代码，明显输出字符串应含有后缀“.jpg”，但实际输出却不含后缀（如下），字符串加法操作似乎不起作用了！</p>
<p><img alt="" src="https://img.jbzj.com/file_images/article/202002/20200215143938.jpg" /></p>
<p>采用showMessage进行输出，看看结果如何？</p>
<p><img alt="" src="https://img.jbzj.com/file_images/article/202002/20200215143946.jpg" /></p>
<p>结果仍是不显示字符串后缀，但可以看到字符串偏左显示，似乎后面还有很多不可见字符。</p>
<p><strong>2，怪异原因：字符串中含有\0，即字符串终止符</strong></p>
<p>以上现象已经看出，字符串加法失效的原因可能是含有某些不可见字符，那到底是什么字符呢？</p>
<p>回到这些字符串产生的源头，即下面由字节数组转换成字符串函数：</p>
<p><img alt="" src="https://img.jbzj.com/file_images/article/202002/20200215143954.jpg" /></p>
<p>显然，此函数未考虑len长度以内可能含有的\0字符，如果buffer中len长度以内含有\0字符，那么这些\0字符也会被复制进result字符串中，造成后续字符串加法“失效”。</p>
<p><strong>3，解决方案：修改函数</strong></p>
<p>将函数修改如下，判断逐字节判断buffer，遇到\0就返回，这样转换的字符串就不含\0了。问题解决。</p>
<div class="jb51code">
<pre class="brush:plain;">
//字节转换为字符串 $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=0 then break; //遇到ASCII 0不再复制！
Move(buffer, str, 1);//注意，这里是从str开始复制的
end;
//Move(buffer, str, len);//注意，这里是从str开始复制的
//ShowMessage (str);
SetLength(str, i);
result := str;
end;</pre>
</div>
<p>以上这篇delphi 字符串处理中的怪异现象与处理方式就是小编分享给大家的全部内容了，希望能给大家一个参考，也希望大家多多支持琼殿技术社区。</p>
<div class="art_xg">
<b>您可能感兴趣的文章:</b><ul><li>解决delphi TAdoQuery组件的close方法导致”列名无效“错误的问题</li></ul>
</div>
</div>
<!--endmain-->
頁:
[1]