• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号
登陆 注册

Delphi实现AnsiString与WideString的转换函数转

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

Delphi实现AnsiString与WideString的转换函数

分类： Delphi2013-01-26 16:23 460人阅读 评论(0) 收藏 举报
[delphi] view plaincopy
  1. 在Delphi下，AnsiString 和 WideString 的存储与管理各有不同，这里提供互相转换的函数一对。  
  2. /// Wide String -> Ansi String  
  3. function WideStringToAnsiString(const strWide: WideString; CodePage: Word): AnsiString;  
  4. var  
  5.   Len: integer;  
  6. begin  
  7.   Result := '';  
  8.   if strWide = '' then Exit;  
  9.    
  10.   Len := WideCharToMultiByte(CodePage,  
  11.     WC_COMPOSITECHECK or WC_DISCARDNS or WC_SEPCHARS or WC_DEFAULTCHAR,  
  12.     @strWide[1], -1, nil, 0, nil, nil);  
  13.   SetLength(Result, Len - 1);  
  14.   
  15.   if Len > 1 then  
  16.     WideCharToMultiByte(CodePage,  
  17.       WC_COMPOSITECHECK or WC_DISCARDNS or WC_SEPCHARS or WC_DEFAULTCHAR,  
  18.       @strWide[1], -1, @Result[1], Len - 1, nil, nil);  
  19. end;  
  20.   
  21. /// Ansi String -> Wide String  
  22. function AnsiStringToWideString(const strAnsi: AnsiString; CodePage: Word): WideString;  
  23. var  
  24.   Len: integer;  
  25. begin  
  26.   Result := '';  
  27.   if strAnsi = '' then Exit;  
  28.   
  29.   Len := MultiByteToWideChar(CodePage, MB_PRECOMPOSED, PChar(@strAnsi[1]), -1, nil, 0);  
  30.   SetLength(Result, Len - 1);  
  31.    
  32.   if Len > 1 then  
  33.     MultiByteToWideChar(CodePage, MB_PRECOMPOSED, PChar(@strAnsi[1]), -1, PWideChar(@Result[1]), Len - 1);  
  34. end;  
  35.   
  36. 调用时需要传入 CodePage 参数，如果是简体中文环境，则 CodePage = 936(可以使用API函数GetACP获取系统默认CodePage)  

鲜花
握手
雷人
路过
鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
More+
上一篇：
DelphiXE5androidtoast发布时间：2022-07-18
下一篇：
[转]delphi删除动态数组的指定元素发布时间：2022-07-18
热门推荐
More+
热门话题
More+
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服（服务时间 9:00～18:00）

在线QQ客服
地址：深圳市南山区西丽大学城创智工业园
电邮：jeky_zhao#qq.com
移动电话：139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap