Merlin’s Delphi Forge

The idea is the same as in tip 6.1 but this functions finds the smallest number.

{ You can easily modify this function to accept other numerical types }
function MinInteger(const aInt: array of Integer): Integer;
var
iI: Integer;
begin
Result := aInt[Low(aInt)];
for iI := Low(aInt) + 1 to High(aInt) do
if [...]

Sometimes you have to get the largest number out of hundreds of others. This is the simplest way to find it:

{ You can easily modify this function to accept other numerical types }
function MaxInteger(const aInt: array of Integer): Integer;
var
iI: Integer;
begin
[...]