Delphi中文本文件Utf-8和Ansi转换
2010-09-03 16:52
148 查看
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;
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;
相关文章推荐
- Delphi中文本文件Utf-8和Ansi转换
- 解決BufferedReader读取UTF-8文件中文乱码(转)
- Java BufferedReader读取UTF-8文件中文乱码
- 解決BufferedReader读取UTF-8文件中文乱码
- MFC/C++ CFile写入文件数据,输出utf-8的文本。(防止中文乱码)
- 解決BufferedReader读取UTF-8文件中文乱码(转)
- 解決BufferedReader BufferedWrite 读写UTF-8文件中文乱码
- Nio 读取UTF-8文件出现中文乱码
- 使用 idHTTP 获取 UTF-8 编码的中文网页 - 回复同学 "Delphi学习者" 的问题
- 解決BufferedReader读取UTF-8文件中文乱码
- Java 解決BufferedReader读取UTF-8文件中文乱码
- 使用 idHTTP 获取 UTF-8 编码的中文网页 - 回复同学 "Delphi学习者" 的问题
- PHP的file_exists函数不支持UTF-8编码下的中文文件目录路径
- python 处理中文文件时的编码问题,尤其是utf-8和gbk
- Java 解決BufferedReader读取UTF-8文件中文乱码
- [Python] 中文编码问题:raw_input输入、文件读取、变量比较等str、unicode、utf-8转换问题
- 遍历文件夹下java文件utf-8编码转gbk编码,解决source insight无法查看中文的错误
- eclipse读入UTF-8中文txt文件输入中文乱码
- BufferedReader 读取 UTF-8 文件中文乱码
- 网页调用JS文件中文出现乱码,utf-8和utf-8 bom的区别