怎么样将widestring类型的数据直接存放在字付串中?

Question

widestring是字节类型,都是以16进制存放,现在需要将发送过来的数全部转化为字付串,该怎么实现?

Answer 1

var
  WS: WideString;
  S: string;
begin
  S := WS;
end;

Answer 2

function WideCharToString(Source: PWideChar): string;

Answer 3

小虫说的方法转化出来，汉字都变?了。我现在也为这个苦恼呢。BUPT的方法能通过编译，但是会报运行错误。我用kylix编译的。