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;

 

转载于:https://www.cnblogs.com/jackkwok/p/7015769.html