delphi 中如何将gbk转换成unicode并保存下来? 如题 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 不会吧,过五一就没有人上csdn了 csdn现在这么人气不旺阿,还是我说得不清楚 function StringToWideStringCHS(const S: AnsiString): WideString;var InputLength, OutputLength: Integer;begin InputLength := Length(S); OutputLength := MultiByteToWideChar(936, 0, PAnsiChar(S), InputLength, nil, 0); SetLength(Result, OutputLength); MultiByteToWideChar(936, 0, PAnsiChar(S), InputLength, PWideChar(Result), OutputLength);end; 不过不知道楼主所谓的保存下来具体指如何保存了。不过WideString与AnsiString的操作没多少区别,唯一区别在于WideChar占两个字节(Byte),而AnsiChar占一个字节(Byte). 如何使用delphi实现两台机器之间的连接,然后实现指定目录文件的拷贝呢 IdSMTP1出现部分电脑无法连接? 急求delphi5!小妹这厢有礼了! 又一个头痛的问题,100分送上 怎样在dbgrid中的密码这一栏输入字符时显示为*? 两个问题,请高手回答! 送100分了,请高手来拿!!!!!! 大家推荐个好用的日期时间控件 在程序界面上绘制PNG图片问题 消息和控件 急问?如何在AdoQuery的Append时,在相关连的DBGrid的记录中输入数据时,数据以*****来显示??? 我是个菜鸟,现在有一个棘手的问题,希望大家帮我一下
var
InputLength,
OutputLength: Integer;
begin
InputLength := Length(S);
OutputLength := MultiByteToWideChar(936, 0, PAnsiChar(S), InputLength, nil, 0);
SetLength(Result, OutputLength);
MultiByteToWideChar(936, 0, PAnsiChar(S), InputLength, PWideChar(Result), OutputLength);
end;
不过WideString与AnsiString的操作没多少区别,唯一区别在于WideChar占两个字节(Byte),而AnsiChar占一个字节(Byte).