MessageBox(0,PChar('L'),PChar('LL'),0);
结果：PChar('LL') 显示 ，但PChar('L') 不显示．
var
p1, p2: PChar;
begin
p1 := PChar('L');
p2 := PChar('LL');
MessageBox(0, p1, p2, 0);
end;
将pp添加到watch list ，发现 p1=''(异常) ，p2='LL'（正常）;
疑惑的结论：对于长度为１的字符串，用pchar强制转换，会出错？？？
改成这样试试：
var
p1, p2: PChar;
begin
p1 := 'L';
p2 := 'LL';
MessageBox(0, p1, p2, 0);
end;
这样直接赋Delphi会自动转成pchar的，不用自己强制转换。至少那样为什么只有一个字出错我也不清楚
没有用过2010，但据说2010的pchar相当于D7的pwidechar
你可以试试将p1,p2定义为pansichar
支持wzwcn的说法，直接赋值是会申请内存的。
坐等高人说法～～～
to：wzwcn
如果这样呢：
procedure My_Msg(pTitle,pText:PChar);
begin
MessageBox(0, pText, pTitle, 0);
end;
var
p1, p2: PChar;
begin
p1 := 'L';
p2 := 'LL';
My_Msg(PChar('LL'),PChar('L')); //出错． 这样多简洁，但会出错．不办法只能用p1,p2来变通．
My_Msg(p2,p1); // 正确，但啰嗦，要额外申请变量．
end;
这样可以啊：
My_Msg('LL','L');
