Управление памятью и утечки

// Проследите фактическое поведение MakeText.
library SharedMemoryBoundary;
uses System.SysUtils;
function MakeText: PChar; stdcall;
begin
  GetMem(Result, 1024 * SizeOf(Char));
end;
procedure FreeText(P: PChar); stdcall;
begin
  FreeMem(P);
end;
exports MakeText, FreeText;
begin end.

// Проследите фактическое поведение LeakRegression.
program LeakRegression;
uses System.Classes, System.Threading;
procedure RepeatScenario;
var I: Integer; L: TStringList;
begin
  for I := 1 to 500 do
  begin
    L := TStringList.Create;
    try L.Add(I.ToString); finally L.Free; end;
  end;
end;
begin end.

// Определите реальную гарантию в PointerSerialization.
program PointerSerialization;
uses System.Classes;
type
  TCacheEntry = record
    Data: Pointer;
    Size: NativeInt;
  end;
var E: TCacheEntry; S: TFileStream;
begin
  S := TFileStream.Create('cache.bin', fmCreate);
  try S.WriteBuffer(E, SizeOf(E)); finally S.Free; end;
end.

// Отделите правило языка от удачного запуска LeakReproduction.
program LeakReproduction;
uses System.Classes;
procedure OpenAndClose(const FileName: string);
var S: TStringList;
begin
  S := TStringList.Create;
  S.LoadFromFile(FileName);
  Writeln(S.Count);
end;
begin end.

// Определите реальную гарантию в InterfaceCycle.
program InterfaceCycle;
type
  INode = interface
    procedure Link(const Other: INode);
  end;
  TNode = class(TInterfacedObject, INode)
    FOther: INode;
    procedure Link(const Other: INode);
  end;
procedure TNode.Link(const Other: INode);
begin FOther := Other; end;
var A, B: INode;
begin
  A := TNode.Create; B := TNode.Create;
  A.Link(B); B.Link(A);
  A := nil; B := nil;
end.

// Отделите правило языка от удачного запуска FastMmScenario.
program FastMmScenario;
uses System.Generics.Collections;
var I: Integer; L: TList<TObject>;
begin
  for I := 1 to 1000 do
  begin
    L := TList<TObject>.Create;
    L.Add(TObject.Create);
    L.Free;
  end;
end.