這幾天做一個專案，呼叫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要注意的問題。