Question

怎样把WideString赋值给PWidechar

delphi 7

Answer 1

Sting 与 WideString, PChar 与 PWideChar 互相转换？
WS : WideString;

S := 'aaaa';
WS := S;
S := WS;

PAnsiChar和PWideChar只是一个指针而已，
针对他们 取^ 时，分别得到一个Ansi字符和Wide字符

说起来还真不好说清楚。。。-_!
WideString单字节字符串
直接赋值就可以转换

var
str: AnsiString;
begin
str := '万一';
Showmessage(IntToStr(Length(str))); {长度是: 4}
end;
--------------------------------------------------------------------------------

//宽字符串 WideString (效率不及 AnsiString)
var
str: WideString;
begin
str := '万一';
ShowMessage(IntToStr(Length(str))); {长度是: 2}
end;

如Length('张三')长度为4 (1个汉字占2个字节)
WideString:由WideChar组成，是双字节的字符串,Length('张三')长度为2,

AnsiChar:1字节Ansi字符
WideChar:2字节的Unicode字符
Char:相当于AnsiChar;

Sting与WideString，AnsiChar与WideChar都可以直接转换
只不过他们占用字节不同，所以用length()取长度结果也不同

前面加上P，就是表示相应的指针类型了
区别是要申请内存空间，访问的时候用^符号，不加^符号也是可以的。编译器有时会帮你处理

Answer 2

procedure TForm1.btn1Click(Sender: TObject);
var P: PWideChar; S: WideString; NP: PWideChar;
begin
P := '你好吗？';
S := P;
NP := PWideChar(S);
Caption := S;
end;

这样转就可以了 PWideChar（）