Pointer/fi

program test_pointer_wiki2;
{$TYPEDADDRESS ON}
var 
  a         : Integer = 100;
  b         : Real = 10.5;
  ptrToInt  : PInteger;  // PInteger on  pointer tyyppi joka on määritelty RTL
                         // sillä voidaan osoittaa ainoastaan integer arvoon/muuttujaan
  ptrToInt2 : ^Integer;  // Yleinen muoto määrittämään osoittimen tyyppiä
  //ptrToInt := @b;      // Käännösvirhe  {$TYPEDADDRESS ON} 
  ptrToInt := @a;        
  //Writeln(ptrToInt);   // Käännösvirhe: Error: Can't read or write variables of this type
  Writeln(ptrToInt^);    // Tulostaa arvon: 100
  New(ptrToInt2);        // allocate an un-initialized Integer on the heap
  Writeln(ptrToInt2^);   // Näyttää "satunnaisen" integer arvon eli kokonaisluvun
  ptrToInt2^ := 222;     // Asetetaan arvo 222 heap-muistiin 
  Writeln(ptrToInt2^);   // Tulostaa arvon 222 
end.

{$TYPEDADRESS ON} 
Var 
  a : Integer = 20;
  b : Real = 20.5;
  c : Boolean = true;
  ptr : Pointer;
begin
  ptr := @a; // valid to hold Integer address 
  ptr := @b; // valid to hold Real address
  ptr := @c; // valid to hold Boolean address
end.

Var 
  a      : Integer = 20;
  ptr    : Pointer;
begin
  ptr := @a;          // valid to hold Integer address 
  //Writeln(ptr);     // Invalid - will not compile
                      // Error: Can't read or write variables of this type
  //Writeln( ptr^);   // Error: Can't read or write variables of this type
                      // Just de-referencing a Pointer variable is not sufficient
  Writeln( PInteger(ptr)^); // After cast, then de-reference: prints 20
end.

  PSmallInt           = ^Smallint;
  PShortInt           = ^Shortint;
  PInteger            = ^Integer;
  PByte               = ^Byte;
  PWord               = ^word;
  PDWord              = ^DWord;
  PLongWord           = ^LongWord;
  PLongint            = ^Longint;
  PCardinal           = ^Cardinal;
  PQWord              = ^QWord;
  PBoolean            = ^Boolean;