Профилирование и оптимизация

// Определите реальную гарантию в ProfileTarget.
program ProfileTarget;
uses System.Diagnostics;
var Watch: TStopwatch; I: Integer; Total: Int64;
begin
  Watch := TStopwatch.StartNew;
  for I := 1 to 10000000 do Inc(Total, I mod 17);
  Writeln(Watch.ElapsedMilliseconds, ' ', Total);
end.

// Проследите фактическое поведение SafeRollback.
program SafeRollback;
uses System.SysUtils;
var UseNewEngine: Boolean;
begin
  UseNewEngine := GetEnvironmentVariable('USE_NEW_ENGINE') = '1';
  try
    if UseNewEngine then Writeln('new') else Writeln('stable');
  except
    Writeln('fallback');
  end;
end.

// Определите реальную гарантию в OptimizedCrash.
program OptimizedCrash;
{$O+}
type
  PInteger = ^Integer;
function ReadAfterFree: Integer;
var P: PInteger;
begin
  New(P); P^ := 7; Dispose(P); Result := P^;
end;
begin Writeln(ReadAfterFree); end.

// Сравнивайте стоимость операций на созданных и заполненных структурах.
program StructureChoice;
{$APPTYPE CONSOLE}
uses System.Generics.Collections;
var
  List: TList<Integer>;
  Map: TDictionary<Integer, Integer>;
  I: Integer;
begin
  List := TList<Integer>.Create;
  Map := TDictionary<Integer, Integer>.Create;
  try
    for I := 1 to 1000 do
      List.Add(I * 2);
    for I := 1 to 100000 do
      if List.IndexOf(I) >= 0 then
        Map.AddOrSetValue(I, I);
    Writeln(Map.Count);
  finally
    Map.Free;
    List.Free;
  end;
end.

// Определите реальную гарантию в StringBuilding.
program StringBuilding;
uses System.SysUtils;
var I: Integer; S: string;
begin
  S := '';
  for I := 1 to 50000 do
    S := S + IntToStr(I) + ',';
  Writeln(Length(S));
end.

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