Указатели и динамическая память

// Проследите фактическое поведение TypedPointer.
program TypedPointer;
{$APPTYPE CONSOLE}
type
  PInteger = ^Integer;
var
  P, Alias: PInteger;
begin
  New(P);
  P^ := 42;
  Alias := P;
  Dispose(P);
  P := nil;
  Writeln(Alias^);
end.

// Отделите правило языка от удачного запуска DanglingAliases.
program DanglingAliases;
{$APPTYPE CONSOLE}
type
  PNode = ^TNode;
  TNode = record
    Value: Integer;
  end;
var
  First, Second: PNode;
begin
  New(First);
  First^.Value := 8;
  Second := First;
  Dispose(First);
  First := nil;
  Inc(Second^.Value);
end.

// Отделите правило языка от удачного запуска NewDispose.
program NewDispose;
{$APPTYPE CONSOLE}
type
  TItem = record
    Name: string;
    Values: array of Integer;
  end;
var
  P: ^TItem;
begin
  New(P);
  try
    P^.Name := 'safe';
    P^.Values := [1, 2, 3];
  finally
    Dispose(P);
  end;
end.

// Проследите фактическое поведение RawMemory.
program RawMemory;
{$APPTYPE CONSOLE}
uses System.SysUtils;
type
  TItem = record
    Name: string;
    Count: Integer;
  end;
var
  P: ^TItem;
begin
  GetMem(P, SizeOf(TItem));
  try
    P^.Name := 'unsafe';
    P^.Count := 3;
  finally
    FreeMem(P);
  end;
end.