请问 Strconv 函数能转换 utf-8(without BOM) 吗

Question

如题

Answer 1

不能用strconv转,用api转拉
搜索关键字 UTF 8 有很多的

Answer 2

这是一个Delphi:将unicode(utf-8)编码转换为gb2312编码的函数
procedure unicode2gb(const unicodestr:string; var GbStr:String);
var 
SourceLength:integer;
DoneLength:integer;
AscNo:integer;
Byte1,Byte2,Byte3:integer;
begin
GbStr:='';
if Trim(unicodestr)='' then exit;SourceLength:=Length(UnicodeStr);
DoneLength:=1;
repeat
AscNo:=ord(UnicodeStr[DoneLength]);
case (AscNo and $E0) of
$E0:begin
 Byte1:=(AscNo and $0f) shl 12;
 Inc(DoneLength);
 if DoneLength>SourceLength then break;
 AscNo:=ord(UnicodeStr[DoneLength]);
 Byte2:=(AscNo and $3f) shl 6;
 Inc(DoneLength);
 if DoneLength>SourceLength then break;
 AscNo:=ord(UnicodeStr[DoneLength]);
 Byte3:=AscNo and $3f;
end;
$C0:begin
 Byte1:=(AscNo and $1f) shl 6;
 Inc(DoneLength);
 if DoneLength>SourceLength then break;
 AscNo:=ord(UnicodeStr[DoneLength]);
 Byte2:=(AscNo and $3f);
 Byte3:=0;
end;
0..$bf:begin
 Byte1:=AscNo;
 Byte2:=0;
 Byte3:=0;
end;
end;//case;
 GbStr:=GBStr+widechar(Byte1+Byte2+Byte3);
 Inc(DoneLength);
 if DoneLength>SourceLength then break;
until DoneLength>=SourceLength;
end;