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

最新推荐文章于 2020-05-09 15:07:31 发布

weixin_30745641

最新推荐文章于 2020-05-09 15:07:31 发布

阅读量1k

点赞数

原文链接：http://www.cnblogs.com/MaxWoods/archive/2010/09/03/1817202.html

版权

本文介绍了一个用于检测字符串是否为Unicode编码并进行UTF-8解码的Delphi函数。通过设置不同的选项参数，该函数能够识别多种Unicode特性，如ASCII、统计信息、控制字符等，并根据检测结果对文本进行相应的解码处理。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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;

转载于:https://www.cnblogs.com/MaxWoods/archive/2010/09/03/1817202.html