동적 정수 배열의 최소값과 최대 값을 얻는 방법?

Question

array of Integer에 의해 정의 된 특정 동적 배열의 최소값과 최대 값을 어떻게 찾을 수 있습니까?

예 :

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 1

당신이 원하는 값을 찾고, 배열을 통해 루프가, 서비스. 그들은 MinIntValue 및 MaxIntValue라고하며 수학 단위에서 찾을 수 있습니다.

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

Answer 2

가장 쉬운 방법은이 작업을 수행하는 내장 함수를 사용하는 것입니다 : 예

Y: array of integer; 

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;