Question

How to use pointer in Pascal

Answer 1

program Example;
{$TYPEDADDRESS ON}
var 
    num: Integer = 289;
    ptr: ^Integer;
begin
    ptr := @num;
    writeln(ptr^);
end.




(*
run:

289

*)

 

70+ SQL courses for beginners and professionals

Answer 2

program Example;
{$TYPEDADDRESS ON}
var 
    num: Integer = 289;
    ptr: ^Integer;
begin
    ptr := nil;
    ptr := addr(num);
    writeln(ptr^);
end.




(*
run:

289

*)

 

70+ SQL courses for beginners and professionals