tpointermath3.pp 186 B

1234567891011121314
  1. { %norun }
  2. program tpointermath3;
  3. {$MODE FPC}
  4. type
  5. PByte = ^Byte;
  6. var
  7. PB: PByte;
  8. begin
  9. // in FPC/ObjFPC mode pointer math is ON by default
  10. PB := PB + 1;
  11. WriteLn(PB[1]);
  12. end.