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;
 
由于考虑到要应付大的字符串,需要对资源和效率进行优化,所以此函数是基于指针操作来完成的。

评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值