请问怎么把widestring类型的变量转化成string类型的呢？

Question

function StringToWideChar(const Source: string; Dest: PWideChar; DestSize: Integer): PWideChar;function WideCharToString(Source: PWideChar): string;

Answer 1

WideCharLenToStrWar         函数         将UNICODE字符串转换为ANSI字符串变量 
WideCharToString            函数         将UNICODE字符串转换为ANSI字符串 
WideCharToStrVar            函数         将UNICODE字符串转换为ANSI字符串变量 

Answer 2

var
a:pchar;
b:string;
c:widestring;begin
  a:=pchar(c);
  b:=passtr(a);
end;
这样可以吗