delphi 7 对 PChar 的操作测试

[电脑玩家]

procedure TForm1.Button1Click(Sender: TObject);
var
S: string;
PC: PChar;
C: Char;
S1: string;
begin
S:='abc';
PC := PCHar(S);
C := (PC+1)^;

S1 := C;
Label1.Caption := S1;
end;

1. 直接用 Pchar(S) 可以把一个字符串转换为 PChar，对于 Win32 API 需要的 PChar 来说，直接这样转换就可以用
了。

2. PChar 就是个指针，所以可以通过指针运算取得里面的某个字符。比如上述代码取得的是 b，如果不+1，则取得 a