Delphi字符串指针操作

这几天做一个项目，调用C的DLL，C里面传递字符串是char *,而Delphi中则是PChar,(从D2009开始支持Unicode后则对应的是PAnsiChar).

使用过程中发现个问题需要注意，直接上代码吧：

procedure TForm6.Button1Click(Sender: TObject);
var
  s:AnsiString;
  p:PAnsiChar;
begin
  s:=LabeledEdit1.Text;  //LabeledEdit1.Text内容是123456
  p:=PAnsiChar(s);
  ShowMessage(PAnsiChar('123456')); //看到123456

  ShowMessage(PAnsiChar(LabeledEdit1.Text)); //看到1

ShowMessage(PAnsiChar(s)); //看到123456

ShowMessage(p); //看到123456

 end;

为什么 ShowMessage(PAnsiChar(LabeledEdit1.Text)); //看到1呢？

这是因为从D2009开始默认的string都是unicode，所以需要从string做一下到ansistring的强制转换：

ShowMessage(PAnsiChar(AnsiString(LabeledEdit1.Text))); //显示123456

原因就是unicode的string在转换成ansichar的时候因为字符长度问题引起的，所以

ShowMessage(PChar(LabeledEdit1.Text));//显示123456，PChar对应Unicode字符串就没有问题

所以这是在D2009/D2010/DXE及后续版本中使用PChar和PAnsiChar要注意的问题。