Min<T> class method

Project: Array Utilities Unit

Unit: DelphiDabbler.Lib.ArrayUtils

Record: TArrayUtils

Applies to: ~>0.1

class function Min<T>(const A: array of T;
  const AComparer: TComparison<T>): T;
  overload; static;

class function Min<T>(const A: array of T;
  const AComparer: IComparer<T>): T;
  overload; static;

class function Min<T>(const A: array of T): T;
  overload; static;

Description

Finds the minimum value of a non empty array.

Parameters:

• A - The array to be examined.

• AComparer - An optional function or object that can be used to compare two values. Used to compare the elements of the arrays to each other.

  If AComparer is provided it must be one of:

  • A function of type TComparison<T>.
  • An object that supports the IComparer<T> interface.

  If this parameter is omitted then the default comparer defined by the TComparer<T>.Default method from the Delphi’s System.Generics.Defaults unit is used.

Returns:

• The element whose value is the smallest in the array.

Precondition:

• A must not be empty. An EAssertionFailed exception is raised otherwise.

Examples

Example #1

Using an equality comparer function:

procedure Min_Eg1;
var
  A: TArray<Integer>;
  ComparerFn: TComparison<Integer>;
begin
  A := TArray<Integer>.Create(1, 2, 3, 4, 2, 3, 2);
  ComparerFn := function(const Left, Right: Integer): Integer
    begin
      Result := Left - Right;
    end;
  Assert(TArrayUtils.Min<Integer>(A, ComparerFn) = 1);
end;

Example #2

Using an equality comparer object:

procedure Min_Eg2;
var
  A: TArray<string>;
  ComparerObj: IComparer<string>;
begin
  A := TArray<string>.Create('a', 'b', 'c', 'd', 'c', 'a');
  ComparerObj := TDelegatedComparer<string>.Create(CompareStr);
  Assert(TArrayUtils.Min<string>(A, ComparerObj) = 'a');
end;

See Also

• Max<T>
• MinMax<T>