如何獲取動態整型數組的最小值和最大值？

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;