TVecInt.Max Method

Overload List

#	Signature	Description
1	function Max: Integer;	Maximum value.
	└ indexed: function Max(Index: Integer; Len: Integer): Integer;
2	function Max(out aIndex: Integer): Integer;	Calculate the maximum value of all calling object elements.
	└ indexed: function Max(out aIndex: Integer; Index: Integer; Len: Integer): Integer;

Overload 1: function Max: Integer;

Maximum value.

Returns: Int32 - The maximum value of all calling object elements. The result is an integer value.

Examples

var a: TVecInt;
b: integer;
begin
    CreateIt(a);
    try
        a.SetIt([1,2,3,4]);
        b := a.Max; // 4
    finally
        FreeIt(a);
    end;
end;

Indexed: function Max(Index: Integer; Len: Integer): Integer;

Calculate the maximum value from calling object elements [Index]..[Index+Len-1].

#	Name	Type	Description
1	Index	Integer	start index
2	Len	Integer	element count

Returns: Int32

Remarks:

The result is an integer value. An exception is raised if array borders are overrun.

Examples

Uses MtxVecInt;

procedure Example;
var a: TVecInt;
max, ind: integer;
begin
    CreateIt(a);
    try
        a.SetIt([1,2,3,4]);
        max := a.Max(ind); // max=4, ind = 3
    finally
        FreeIt(a);
    end
end;

Overload 2: function Max(out aIndex: Integer): Integer;

Calculate the maximum value of all calling object elements.

#	Name	Description
1	aIndex	Stores maximum value index.

Returns: Int32 - the maximum of all calling vector integer elements in-place.

Examples

var a: TMtxInt;
b: integer;
begin
    CreateIt(a);
    try
        a.SetIt([1,2,3,4]);
        b := a.Max; // 4
    finally
        FreeIt(a);
    end;
end;

Indexed: function Max(out aIndex: Integer; Index: Integer; Len: Integer): Integer;

Calculate the maximum value of calling object elements [Index..Index+Len-1].

#	Name	Description
1	aIndex	Returns maximum value index.
2	Index	The starting index at which to start the search.
3	Len	The number of elements to search starting from Index.

Returns: Int32 - the maximum of calling vector integer elements [Index..Index+Len-1].

Remarks:

An exception is raised if array borders are overrun/underrun.

Examples

Uses MtxExprInt;

procedure Example;
var a: MatrixInt;
max, ind: integer;
begin
    a := [[1, 2], [3, 4]];
    max := a.Max(ind); // max = 4, ind = 3
end;