Delphi中的WideString类型学习

运行以下代码，便可以发现WideString的好处。

var
  S: string;
begin
  S := 'Test测试';
  ShowMessage(IntToStr(Length(S)));  //返回的值为 8
  ShowMessage(IntToStr(Length(WideString(S)))); //返回的值为 6
  ShowMessage(Copy(S,4,2)); //返回的是 t(未知)
  ShowMessage(Copy(WideString(S),4,2)); //返回的是 t测
end;

WideString类型，据我自己所了解，它是将字符串转成国际编码类型(即英文也是由两个字节组成，而中文本身就是两个字节组成的)。此处就可以体现出WideString的好处，在日后的编程也许会常用到呢。

在不知道WideString的好处之前，自己还写了这么一个函数，呵呵，觉得有点好笑，但也从中学了一点东西。自己写的函数如下:

function NewStrLen(PTestStr: PString): Integer;
{
作者:阿永
功能:反回字符串的长度(汉字当作一个字符长度)
示例:
   S:='Test测试';
   S_Len:=NewStrLen(@s);
}
var
  TmpLen, i: Integer;
begin
  i := 1;
  Result := 0;
  TmpLen := Length(PTestStr^);
  while i <= TmpLen do
  begin
    Inc(Result);
    if IsDBCSLeadByte(Byte(PTestStr^[i])) then Inc(i, 2) else Inc(i, 1);
  end;
end;
 
由于考虑到要应付大的字符串，需要对资源和效率进行优化，所以此函数是基于指针操作来完成的。