blob: d7109879fa93b1b06e37215f81a02dfa876269bd (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
{ %norun }
program tpointermath1;
{$IFDEF FPC}
{$MODE DELPHI}
{$ENDIF}
type
{$POINTERMATH ON}
PByte = ^Byte; // Pointer arithmetic can be applied to types declared with PointerMath ON
{$POINTERMATH OFF}
PInteger = ^Integer;
var
PB: PByte;
PI: PInteger;
begin
// This checks even with PointerMath=Off it still can be used for types declared with PointerMath=On
PB := PB + 1;
WriteLn(PB[1]);
{$POINTERMATH ON}
// It can also be used if explicitely declared in the code
PI := PI + 1;
WriteLn(PI[1]);
end.
|
