简单的类型转换

Question

小弟我有一个问题，请各路的高手帮助解答：
String 与 PChar 之间的转换.我是想这样做:
var
  str: string;
  PChr: Pchar;
begin
  str := 'xxxx';
  1.如何让Pchr指向str? 是不是可以这样啊: 
    Pchr := @str;
    然后 SendMessage(button1.handle, WM_SETTEXT, 0, LongWord(Pchr));
  2.button1.caption显示的内容不是'xxx',而好像是指针的地址,如何正确转换?
  3.反过来,如何把Pchr指向的值赋给str?

Answer 1

改成
Pchr := @str[1];
即可，注意WM_SETTEXT必须指定Length

Answer 2

SendMessage(button1.handle, WM_SETTEXT, 0, LongInt(PChar(str))); 

Answer 3

楼上的几位在侠,如何把Pchr指向的值赋给str?

Answer 4

procedure aaa;
var
  str: string;
  PChr: Pchar;
begin
  str:="test";
  PChr:=Pchar(str);
end;
反过来
procedure aaa（PChr:Pchar）;
var
  str: string;
begin
  str:=trim(string(PChr));
 
end;