delphi中的指针不同于c
不能参与运算与修改
用类型转换试试integer(p1)
我没用过
在delphi中不常用指针的