var pt: Pchar; buf: arra[0..9] of char;begin pt := @buf[0]; //下一个 pt[1]; 或者pt := pt + 1; pt[0];end;
楼上的可以, 或者用Inc(pt)
