查看完整版本: 指针的运算仅对PChar 类型

指针的运算仅对PChar 类型

[color=#008000]//指针的运算仅对 PChar 类型[/color]
[b][color=#000080]procedure[/color][/b] TForm1[color=#0000ff].[/color]Button1Click(Sender: TObject);
[b][color=#000080]var[/color][/b]  p: PChar;
[b][color=#000080]begin[/color][/b]  p := [color=#0000ff]'China'[/color];
  Inc(p);
  p := p + [color=#0000ff]1[/color];
  ShowMessage(p);
[color=#008000]
//返回：ina[/color]  
  Dec(p);
  p := p - [color=#0000ff]1[/color];
  ShowMessage(p);
[color=#008000] //返回：China[/color][b]
[color=#000080]end[/color][/b];