delphi StringToWidestring

function  StringToWidestring(Source:string):WideString;
var
Len  : Integer;
begin
Len := MultiByteToWideChar(936,0,PChar(Source),Length(Source),nil,0);
SetLength(Result,Len);
MultiByteToWideChar(936,0,PChar(Source),Length(Source),PWideChar(Result),Len);//936为简体中文页码
end;

//widestring转成string
function WidestringToString(source:WideString):string;
var
Len  : Integer;
begin
Len := WideCharToMultiByte(936,0,PWideChar(source),-1,nil,0,nil,nil);
SetLength(Result,Len-1);
WideCharToMultiByte(936,0,PWideChar(source),Length(source),PChar(Result),Len-1,nil,nil);
end;

 

本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/xia54204646/archive/2011/05/09/6406932.aspx