如何获取动态整型数组的最小值和最大值？

Question

如何查找由array of Integer定义的某个动态数组的最小值和最大值？

例如：

Y: array of integer; 

Answer 1

你通过数组必须循环，寻找所需的值，例如：

function TMyClass.GetMinValue: Integer; 
var 
    Idx: Integer; 
begin 
    Result := MyArray[Low(MyArray)]; 
    for Idx := Low(MyArray)+1 to High(MyArray) do 
    begin 
    if MyArray[Idx] < Result then 
     Result := MyArray[Idx]; 
    end; 
end; 

function TMyClass.GetMaxValue: Integer; 
var 
    Idx: Integer; 
begin 
    Result := MyArray[Low(MyArray)]; 
    for Idx := Low(MyArray)+1 to High(MyArray) do 
    begin 
    if MyArray[Idx] > Result then 
     Result := MyArray[Idx]; 
    end; 
end; 

Answer 2

最简单的方法是使用执行此内置功能服务。它们被称为MinIntValue和MaxIntValue，可以在数学单元中找到它们。

uses 
    Math; 
.... 
TheMin := MinIntValue(TheArray); 
TheMax := MaxIntValue(TheArray); 

Answer 3

有在单位数学的函数重载此：

function MinValue(const Data: array of Single): Single; overload; 
function MinValue(const Data: array of Double): Double; overload; 
function MinValue(const Data: array of Extended): Extended; overload; 
function MinIntValue(const Data: array of Integer): Integer; 

function MaxValue(const Data: array of Single): Single; overload; 
function MaxValue(const Data: array of Double): Double; overload; 
function MaxValue(const Data: array of Extended): Extended; overload; 
function MaxIntValue(const Data: array of Integer): Integer; 

，因为使用的是整数，你应该使用MinIntValue和MaxIntValue

Answer 4

它可以在一个循环中完成.. 。

function ArrayValRange(somearray: array of integer; var minval: integer; var maxval: integer): boolean; 
var 
    i: integer; 
begin 
    result := false; 
    if length(somearray) < 1 then 
     exit; 
    result := true; 

    maxval = somearray[ Low(somearray)]; 
    minval = maxval; 

    for i := Low(somearray)+1 to High(somearray) do 
    begin 
    if somearray[i] > maxval then 
     maxval := somearray[i]; 

    if somearray[i] < minval then 
     minval := somearray[i]; 

    end; 
end; 

然后

if ArrayValRange(myarray, min, max) then 
begin 
    //do your thing 
end;