Обобщения и коллекции

// Отделите правило языка от удачного запуска GenericRelation.
program GenericRelation;
{$APPTYPE CONSOLE}
type
  TBox<T> = class
  private
    FValue: T;
  public
    constructor Create(const AValue: T);
    function Get: T;
  end;
constructor TBox<T>.Create(const AValue: T);
begin FValue := AValue; end;
function TBox<T>.Get: T;
begin Result := FValue; end;
begin end.

// Проследите фактическое поведение CollectionChoice.
program CollectionChoice;
{$APPTYPE CONSOLE}
uses System.Generics.Collections;
var
  Ordered: TList<Integer>;
  ById: TDictionary<Integer, string>;
begin
  Ordered := TList<Integer>.Create;
  ById := TDictionary<Integer, string>.Create;
  try
    Ordered.Add(20);
    ById.Add(20, 'twenty');
  finally
    ById.Free;
    Ordered.Free;
  end;
end.

// Пользовательские Equals и GetHashCode используют один и тот же признак ключа.
program HashContract;
{$APPTYPE CONSOLE}
uses System.Generics.Collections, System.Generics.Defaults;
type
  TKey = record
    Id: Integer;
    LabelText: string;
  end;
  TKeyComparer = class(TEqualityComparer<TKey>)
  public
    function Equals(const Left, Right: TKey): Boolean; override;
    function GetHashCode(const Value: TKey): Integer; override;
  end;
function TKeyComparer.Equals(const Left, Right: TKey): Boolean;
begin
  Result := Left.Id = Right.Id;
end;
function TKeyComparer.GetHashCode(const Value: TKey): Integer;
begin
  Result := Value.Id;
end;
var
  D: TDictionary<TKey, string>;
  K1, K2: TKey;
begin
  D := TDictionary<TKey, string>.Create(TKeyComparer.Create);
  try
    K1.Id := 7;
    K1.LabelText := 'first';
    D.Add(K1, 'stored');
    K2.Id := 7;
    K2.LabelText := 'second';
    Writeln(D.ContainsKey(K2));
  finally
    D.Free;
  end;
end.

// Отделите правило языка от удачного запуска DictionaryModes.
program DictionaryModes;
{$APPTYPE CONSOLE}
uses System.Generics.Collections;
var
  D: TDictionary<string, Integer>;
  N: Integer;
begin
  D := TDictionary<string, Integer>.Create;
  try
    D.Add('a', 1);
    D.AddOrSetValue('a', 2);
    if D.TryGetValue('a', N) then
      Writeln(N);
  finally D.Free; end;
end.

// Определите реальную гарантию в ListOwnership.
program ListOwnership;
{$APPTYPE CONSOLE}
uses System.Generics.Collections;
var
  Items: TList<TObject>;
  Obj: TObject;
begin
  Items := TList<TObject>.Create;
  try
    Obj := TObject.Create;
    Items.Add(Obj);
  finally
    Items.Free;
  end;
end.