Delphi里GBK如何转UTF8呢?

50 | 问答知识库用户 |浏览340次
收藏|2014/05/17 22:00
如题

满意回答

2014/05/21 21:22

var
  strGBK: AnsiString;
  strUTF8: AnsiString;
  strUTF16: WideString;
begin
  StrGBK := #$B2#$E2#$CA#$D4;//'测试'
  SetLength(strUTF16, Length(strGBK));
  SetLength(strUTF16,MultiByteToWideChar(936,0,PAnsiChar(strGBK), Length(strGBK),PWideChar(strUTF16),Length(strUTF16)));
  strUTF8 := UTF8Encode(strUTF16);
end;

热心网友

其他回答(0)
0人关注该问题
待解决问题



+1
 加载中...