Delphi中文本文件Utf-8和Ansi转换
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
- 如何解决GBK的编码的文件中的中文转换成为UTF-8编码的文件而且不乱码
- Delphi中文本文件Utf-8和Ansi转换
- [Python爬虫] 中文编码问题:raw_input输入、文件读取、变量比较等str、unicode、utf-8转换问题
- C++中,将.txt文件的编码由UTF-8转换为ANSI
- C++中,将.txt文件的编码由UTF-8转换为ANSI
- Delphi中文本文件Utf-8和Ansi转换
- utf-8转换为ansi和修改文件名的批处理(可解决source insight中文注释乱码问题)
- [Python] 中文编码问题:raw_input输入、文件读取、变量比较等str、unicode、utf-8转换问题
- 把ANSI格式的TXT文件批量转换成UTF-8文件类型
- 把ANSI格式的TXT文件批量转换成UTF-8文件类型
- Ansi,Unicode(little endian),Unicode big endian,UTF-8编码文件相互转换
- 【分享】Android Studio专用文件转换工具:把ANSI文件批量另存为无BOM的UTF-8文件
- 中文乱码转换utf-8
- unicode, ANSI, utf-8字符集之间的转换 C,C++
- eclipse中怎么通过Properties文件把中文转换成unicode
- 字符编码——在python2中如何将txt中的utf-8转换成中文
- Delphi读取和写入utf-8编码格式的文件
- ANSI、UNICODE、UTF-8编码格式相互之间转换
- 解決BufferedReader读取UTF-8文件中文乱码(转)
- 中文转换成HTML中的UTF-8