UTF-8字符串转为AnsiString

//江雪 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;