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

Delphi中文本文件Utf-8和Ansi转换

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

const
  IS_TEXT_UNICODE_ASCII16 = $1;
  IS_TEXT_UNICODE_REVERSE_ASCII16 = $10;
  IS_TEXT_UNICODE_STATISTICS = $2;
  IS_TEXT_UNICODE_REVERSE_STATISTICS = $20;
  IS_TEXT_UNICODE_CONTROLS = $4;
  IS_TEXT_UNICODE_REVERSE_CONTROLS = $40;
  IS_TEXT_UNICODE_SIGNATURE = $8;
  IS_TEXT_UNICODE_REVERSE_SIGNATURE = $80;
  IS_TEXT_UNICODE_ILLEGAL_CHARS = $100;
  IS_TEXT_UNICODE_ODD_LENGTH = $200;
  IS_TEXT_UNICODE_DBCS_LEADBYTE = $400;
  IS_TEXT_UNICODE_NULL_BYTES = $1000;
  IS_TEXT_UNICODE_UNICODE_MASK = $F;
  IS_TEXT_UNICODE_REVERSE_MASK = $F0;
  IS_TEXT_UNICODE_NOT_UNICODE_MASK = $F00;
  IS_TEXT_UNICODE_NOT_ASCII_MASK = $F000;

function DecordUtf8: String;
var
  MyOpt : Integer;
  Text: String;
begin
  Text := 'WWWWWWWWWWWW'; //可以为从文件中读出来的字符
  MyOpt := IS_TEXT_UNICODE_UNICODE_MASK;
  if IsTextUnicode(PChar(Text), length(Text), @MyOpt) then
    Text:= Utf8Decode(Text);
  Result := Text;
end;


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
Delphi停靠技术的应用发布时间:2022-07-18
下一篇:
zw版【转发· 台@@湾 nvp系列Delphi例程】HALCONCheckDifference发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

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

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