delphi 中如何将gbk转换成unicode并保存下来？

[mbzdh]

如题

[mbzdh]

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).

[mbzdh]

不会吧，过五一就没有人上csdn了

[zhousan]

我是菜鸟，来帮你顶