21 lines
349 B
ObjectPascal
21 lines
349 B
ObjectPascal
|
program pointer_project;
|
||
|
|
|
||
|
|
{$mode objfpc}{$H+}
|
||
|
|
|
||
|
|
type Plongint = ^longint;
|
||
|
|
|
||
|
|
var
|
||
|
|
anInt: longint = 243;
|
||
|
|
intPtr: Plongint;
|
||
|
|
|
||
|
|
begin
|
||
|
|
intPtr := @anInt;
|
||
|
|
WriteLn('The value of intPtr^ is ', intPtr^);
|
||
|
|
Inc(intPtr^, 4);
|
||
|
|
WriteLn('The value of anInt after Inc(intPtr^, 4) is: ',anInt);
|
||
|
|
{$IFDEF WINDOWS}
|
||
|
|
readln;
|
||
|
|
{$ENDIF}
|
||
|
|
end.
|
||
|
|
|