Delphi POS函数中文处理的问题

2010 年 03 月 01 日

21120 次浏览

722字数

delphi漏洞 pos()函数的奇怪现象 
	 
	edit1.Text := intToStr(pos(&#39;市&#39;,资中市&#39;)); 
	结果=5,正确. 
	 
	edit1.Text := intToStr(pos(&#39;市&#39;,&#39;资兴市&#39;)); 
	结果=2 . -_-? 
	 
	edit1.Text := intToStr(pos(&#39;市&#39;,&#39;湖南省郴州市资兴市&#39;)); 
	结果=11,正确. 
	 
	edit1.Text := intToStr(pos(&#39;市&#39;,&#39;湖南省资兴市郴州市&#39;)); 
	结果=8 . -_-? 
	 
	以上结果都进行调试过,有没高手知道为什么会这样的?

	--------------------------------------------- 
	 
	因为&ldquo;资&rdquo;的后半部分加上&ldquo;兴&rdquo;的前半部分就是&ldquo;市&rdquo;。 
	s1:=&#39;资&#39;; 
	s2:=&#39;兴&#39;; 
	ShowMessage(s1[2]+s2[1]); 
	 
	不是漏洞，是由于汉字由两个字节组成的，使用WideString就Ok了 
	试试看： 
	edit1.Text := intToStr(pos(&#39;市&#39;,WideString(&#39;资中市&#39;))); 
	//结果=3,正确. 
	 
	edit1.Text := intToStr(pos(&#39;市&#39;,WideString(&#39;资兴市&#39;))); 
	//结果=3

最后修改：2010 年 03 月 01 日

支持就是力量

liupeng
2010-03-04 10:40:45

理论上资兴市的市也应该算上是第5个位置，每个汉字2字节嘛

回复
Lex Li
2010-03-01 14:53:32

最好指明存在问题的Delphi版本，否则初学者很容易理解不好。呵呵，希望Delphi 2009/2010没有这个问题。

回复
1. 傻猫
  2010-03-01 15:08:23
  
  @Lex Li
  
  我用的Delphi7，用WideString就没有这个问题了。
  
  回复