int add(int *a);

-------------

function add(a: PInteger): Integer;



char *s="window";
------------------

相似的写法不止一个：

1、
const
  s : array[1..7] of Char = ('w', 'i', 'n', 'd', 'o', 'w', #0');
var
  P : PChar;

P := @S[1];

2、
const
  Str : string = 'window';
var
  P   : PChar;

P := @Str[1];


我没试验，如不正确，请回复

谢谢楼上的。不管怎么样
我还没试呢，先谢过