UTF-8字符串转为AnsiString

类别:Delphi 点击:0 评论:0 推荐:
//江雪 2001.06.11 http://asnowcn.at.china.com //将UTF-8字符串转为代码页为CodePage的AnsiString。 function UTF8ToAnsiString(utf8str:string; CodePage:integer):AnsiString; var i:integer; buffer:widestring; ch,c1,c2:byte; begin result:=''; i:=1; while i1 then begin SetLength(Result, i-1); WideCharToMultiByte(codePage, WC_COMPOSITECHECK or WC_DISCARDNS or WC_SEPCHARS or WC_DEFAULTCHAR, @buffer[1], -1, @Result[1], i-1, nil, nil); end; end;

本文地址:http://com.8s8s.com/it/it6092.htm